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Kxre computer-ejer! 
Sa er vi pa banen igen. TAST nr. 2 er en realitet, vores forste 
lmer blev nemlig sa godt modtaget af dig og alle landets 
re data-freaks, at vi har beslutiet nu at udgive TAST som 
fast blad, du kan se trem til i kiosken. Forelobig dog kun 
hver tredje mined, altsa tire gange arligt. men pa den anden 
side: I hvert nummer af TAST, Danmarks tykkeste taste-ind 
blad, er der programmer nok til mange maneders socialt 
samva?r med din 'puter! 

Udvid din softwaresamling med TAST. Og laer samtidig nog- 
le af de tricks, der gor professionelle programmorer sa 
skrappe. 

TAST er dit programblad! Kun med kvalitetsprogrammer, der 
alle er gennemprovede for fejl og klar til at taste ind. 
Go fornejelse. . . Rasmus Kirkegard Kristiansen. 
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Samtlige aftrykte hstninger er 
atpravede tor offentliggoreise. 
Forlaget betaier skattefnt op 
til 1000 kroner for godkendte 
ia?serprog rammer Forlaget 
har ret til aftrykte. godkendte 
programmer 1 bladet og m3 of 
fentliggare dem pA andre la- 
qermodia, Afsender garanterer 
for programmets onginahtst. 
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TAST udgives af forlaget *ny elek 
tronik", der ogsS udgiver "SOFT. 
'Alt om Data'. TOMputer\ 'Sven- 
ska COMputer og "ny eiektronlk\ 
Sflstertorlaget Audio udgiver end- 
videre 'high fidelity" og HI-FI- 

TA5T accepterer Iistninger til alle 
markedets mikroer, blot skal de 
vsre skrevet i det til maskinen 
mest benyttede sprog. 




Hons Henrik Bong, til doglig spil-fester pa 
SOFT, har for en sfund logt joysticket veek og 
helliget sig sit et og alt: Penge. 
Med et nyt budgeprogram fik hon sfyr pa sin 
privotokonomi Og det kom der en underfun- 
dig beretning ud of... 




hov» 



COP 



Hvls du Iseste ka*mpetesten af de 
to nye Amlgaer i vort sfistertlad 
COMputer, sad du sikkert og sav* 
lede over dtsse fede masklner for 
rrcend med h3r pA brystet Efteret 
lynhurtigt look I sparegrisen opda- 
gede du dog desvaerre. at juleman- 
den Ikke havde deponeret en stri- 
be Tirtwn* siden sidst si hvortfan 
skulle du nogenslnde fa skrabet 
penge nok sammen til at ft dyret 



hjem pS skrivebordet? 
55 begyndte du sikkert at regne. 
og kom i tanker om. at faster 
Agathe havde lovet dig 500 kr. tit 
din fodselsdag. og at din ven Hu- 
gurt skyldte dig 350 kr 500 + 
350.„ hmm. hvad blivermon det? 
Det er her. et godt budgetpro- 
gram kommer ind i billedet 

Det besluttede jeg mlg ti I at klgge 



naermere pa. og svaret 13 faktisk li- 
ge rundt om hjcrnet. 
Jeg kssrte hen til en af Kflbenhavns 
st^rste spllpushere. Mlbola pa 
0sterfcrogade. og bad om et bud- 
getprograra Ekspedienten gav et 
halvkvalt gisp fra sig. og de om- 
knngstSende begyndte at smSfni- 
se bag min ryg. Mit ansigt antog 
en smSrod kul*r, men jeg remme- 
de mig og gentog min bestilling. 



Efter at have rodet i diverse pap 
kasser kunne ekspedienten gri- 
nende fremtrylle et eksemplar af 
et fammebudgetprogram, som jeg 
fik lov at iSne et par dage. 
Jeg skyndte mlg naturligvis hjem, 
bryggede et par liter te. lAsteyder- 
dflren. ta?ndte en smeg og gik i 
krig med vidunderet 



■uaStar: f i zaStar 
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The name of the game 

Nu er det vist pi tide, at jeg fir for- 
klaret hvad der egentiig ligger 1 
ordet budgetprogram. Det er 
nemlig Ikke Just det samme sorn 
det, der i England hedder "budget 
games!*. altsi lavprisspll som Rre- 
birds Silverrange games. Der er 
snarere tale om en hjaalpehjerne. 
der er betydellgt bedre til at jong- 
lere med tal end gennemsnits- 
danskeren (mig tnkluslve). 



Tur ljunglen 

Der fmdes et utal af budgetpro- 
grammer, Dgefra de store firmaers 
talknusere, der beregner irsresul- 
tatet udfra oplysninger om ind- 
tsegter, udgifter, renter, svingnin- 
ger i dollarkursen. dlrekt0rens 
personlighed (evt bans kones) 
samt vejmdslgten g<eldende for 
lardag og wndag. og si til det lille 
program, jeg fik fingre I Hvis du 
f.eks. gir ned I dogneren {compu- 
terbutikken altsi) og pi dine gra?- 
dende kna? forklarer. hvor meget 
du ansker dig en Amiga, kan det 
rare, at de rare mennesker stiller 
dig et par spssrgsmil, fodrer svare- 
ne ind ( et flnansieringsprogram 
(der er en s»1ig type budgetpro- 
gram}* og pi et ojeblik kan fortsl - 
le dig, at hvis du bare sender en 
check p3 50 kr. hver mined de 
nffiste 933 Sr. er vldunderet dlt til 
evlg arv og eje (efter de 933 ir alt- 



Ned pa jorden 

Et budgetprogram er ligsi legen- 
de let at beskrlve, som dobbetthe- 
lixstrukturen 1 et DNA molekyle. 
men der er dog vlsse grundpnnclp- 
per, der gir igen I dem alie. 
For nu at vende tllbage til Amiga 
eksemplet fra forste afsnrt, si 
fortsa?tter htstonen siledes. 
Du anskaffer dig et budgetpro- 
gram (k0ber det, eller TASTer det 
ind fra et blad) og sa?tter dig godt 
tilrette med dine Icnsedler. for- 
skudsopgpreise og andet grsesk 
mellem dig og computeren. 

Sfl korer vi 

I programme! er der sandsynligvts 
Zslagsposteringer: Minedlige po- 
ster og ireposter. Minedlige po- 
stereralle de poster, der kan varie- 
re fra mined til mined, sisom I0n. 
transportomkostnlnger og rejse- 
udgifter. De iriige poster er si na- 
turiigvis alt det der er fast hele 
iret igennem. sisom bladabonne- 
menter, forsikringer osv. 
Lad os slge, at det er januar mi- 
ned. S3 starterdu med at fodre din 
minedlige indtsegt ind pi skema- 
erne for hver mined. Det kan jo 
tsenkes, at du har et sommerferle- 
job. hvordu tjenerflere penge end t 
resten af iret Da du har fodseis- 
dag I marts mined, er det her. du 
skrtver de 500 kr. fra faster Agat- 
he. samt hvad du ellers regner med 
at (ndkassere ved den lejlighed. 
Pengene fra Hugurt fir du nok Ikke 
f0r i august, si her skriver du 350 
kr som indtsegt. Si kommer der 
alle mulige smiting sisom tand- 
lajgeregninger (check lige vis- 
domstaendeme i spejlet), frisor. 
lommepenge, tipsmlllionen og 
meget andet. Hvis du betaler hus- 
leje, kan du bide anfore den som 
en minedllg udgift eller som en 
enkelt irspost. Det smarteste er 
dog at skrive den, hvor den forfal- 
der, dvs. hvert halve ir. hver mi- 
ned eller hvornir du nu skal punge 
ud, for ellers fir du ikke det rigtlge 
balanceresultat i I0bet af iret 



At ga pa line 

Balancen er simpelthen et udtryk 
for, hvor mange penge du pi et gi- 
vet tidspunkt bar have pi bank- 
bogen. Den kan du som regel fi 
tegnet en graf over, der 'vlser 
vandstanden ( pengetanken\ 
Her opdager du fortiibentlig. at du 
i november runder det magiske 
tal, der sa?tter dig i stand til at k»- 
be Amigaen, stereoanleegget eller 
hvad du nu higer efter Hvis det er 
tilfteldet, er det en god ide at ind- 
fcre den som post med det sam- 
me. si du ikke kaber Amigaen i no- 
vember. og i december opdager at 
du ikke har rid til den aeske pa- 
pirclips, som faster Agathe flnsker 
sig si brsendende til Jul 

Lang ventetid 

Si kan du lagre hele molevitten pi 
disk og gi i gang med at tjene pen- 
ge. I I0bet af iret skal du naturiig- 
vis ajourfare budgettet, efterhin- 
den som du firoverblik overde en- 
kelte posters st0rrelse. Hvis Hu- 
gurt Teks. betaler dig 550 kr i ren- 
te, retter du posten i august til 
400 kr., men fir du til gengaid 
kun en hjemmestrikket rwesevar- 
mer af Agathe, mi du heit slette de 
500 kr, med mlndre du da fir 
solgt dette herllge instrument i 
den bli avis. 

Det kan jo ogsi teenkes, at Amiga- 
en falder i prts, si du allerede kan 
kobe den i oktober. Igen skal du 
ind og rette i budgettet 

Medaljens bagside 

Det eneste mit budgetprogram Ik- 
ke kunne. var at udskrive 1 00-km- 
nesedler pi printeren, si program 
eller ej, du er stadig nodt til at tje- 
ne pengene selv. 

Det et budgetprogram kan hjcelpe 
dig med, er at give dig overt>lik 
over dine finanser, og fortiindre 
dig i at bruge formuer pi burgere 
og konkurrerende computerbla- 
de, Det er nemlig betydeiigt nem- 
mere at modsti sidanne frlstel- 
ser, nir du har sat dig et mil og 
ved. hvor la?nge du skal vente, far 
det er niet 

Som en klog supermarkedsejeren- 
gang sagde: "Hvad dererspareter 
tjent\ 

Hans Henrik Bang 



Amiga-ejere ved, at deres com- 
puter ersagen. nfirdet gasldergra- 
fik. Men alligevel er det nok de fa?r- 
reste. der havde forestillet sig. at 
et CAD-agtigt program kunne 
njmmes p3 sA fS linier som her, 
Tast det ind. Endnu en gang vil du 
bllve fortavset over din Amigas 
ydeevne,,. 



• 3-d CAD af Potor DilSQiard 

* TAST 2/97 



x 1-230 

x2-390 

yl-70 

ye-150 

r-S 

bc-9 

ba-bc/3.2 

pi-ee/7 

ha-20 

sek-100 

skll-V 



PALETTE 
PALETTE 
PALETTE 
COLOR 0 
COLOR 1 
COLOR 2 
UINDOU 1 
ON BREAK 
BREAK ON 



0.0,0, .7 
1.0.0. .7 



. .1 

GOSUB Farve 



Bagynd: 
CLS 

COLOR 2.0 
LOCATE 13. 17: INPUT 
IF UCASESCjnS5- t, N'' 

GOTO KaaaoCAD 
ELSE 

GOTO initioliaorin© 
END IF 




0nakos 

THEN 



ny initiaiiaoriny: j/n 



.jnS 



InltlaXlmrlngj 
CLS 

LOCATE 1 ( 10:PRINT"Indtaat dimensioner paa kasson , " 



LOCATE 3, 10: INPUT"Indtaat x-koordinat nr. 1 ".xkoorl 

LOCATE 4,10: INPUT" Indtaat x-koordinat nr. 2 ".xkoore 

LOCATE 5,10: INPUT"Indtaat y-koordinat nr. 1 M ( ykoorl 

LOCATE 6,10:INPUT"Indtaat y-koardinat nr- 2 ",ykoor2 

LOCATE B. 10t INPUT"Indtaot l»ngde 1-10 " ( r : h-r 

LOCATE 9, 10i INPUT-Indtast x-drejniny ",bc 

LOCATE 10, 10: INPUT"Indtaat y-drejniny * ( bs 

LOCATE 12. 10; INPUT*Indtoat rotationa-haatiyhed ",ha 

LOCATE 13,10;INPUT"Indta3t antal aakvanoor H ,3ek 

LOCATE 14. 10: INPUT"0nskea akjulto linier J/n ".akll 



CLS 

FOR t-1 TO ask 
FOR F-l to 2 

FOR v-1 TO 380 STEP ha 
>81<ter 

aCl)-bc-Cr*COSCVpi/360)3 : aC2)*-bc*Cr*COS(v*pi/360) J 

kCn-ba-Cr»SINCv-pi/3B0)) : kC2>— ba*Cr»SINC v*pi/360) ) 
'Koordinater 

xxi-xl-a(F3+m ; xx2-x2-a<F)-m 

xx3-xl+oCF)+m : xx4-x2+aCF)-m 

yyl-yl*kCF3*m/3.2 ; yy2-y2*kCF3-m/3.2 

yy3-yl-kCF}+m/3.2 x yy4-y2-kC F)~m/3 .2 
'Tegn koaaon mod akjulto Jinior 

IF UCASESCsklS)-"J" THEN 

IF CaCf>/bc)/r>0 AND CaCf )/bc)/r<l AND F-2 THEN 
ELSE 

LINECxxl,uul?-Cxx3,yy3) ,2 



GAMES 



END IF 

IF CaCF)/bc>/r>-l AND CaCf )/bc)/r<0 AND F-l THEN 
ELSE 

END IF 

IF CaCF)/bc>/r>-l AND CatF)/bC)/r<0 AND F-H THEN 
ELSE 

LINECxxB.ggl)-Cxx4,gg3) ,S 
END IF 

IF CaCF)/bc)/r>0 AND CaCF)/bc)/r<l AND f-l THEN 
ELSE 

LINECxxl.yg2)-Cxx3.gy4).2 
END IF 

LlNE(xxl.yyl)-Cxx2,gyS),e,b 

IF CaCF)/bc)/r>-l AND (aCF)/bc)/r<l AND F-l THEN 
ELSE 

LINEtxx3.gg4)-Cxx4.gg4),a 
END IF 

IF CaCF)/bc)/r>-l AND CaCf )/bc)/r<l AND F-5 THEN 
ELSE 

LINE<xx3.gy3)-Cxx4,gg3),2 
END IF 

IF CaCF)/bc)/r>0 AND CaCf )/bc)/r<l THEN 
ELSE 

LINECxx3,gg3)-Cxx3,gg4) ,5 
END IF 

IF CaCF)/bc)/r>-l AND CaCF)/bc)/r<0 THEN 
ELSE 

LlNECxx4,gg3)-Cx4,gg4J,2 



END IF 
EL5E 

'Togn kaoaen uden akjulte liniar 
LINE(xxl,ggl)-Cxx3,gg3),e 
LINECxxe,ygB)-Cxx4,gg4) ,S 
LINECxxe.ggl)-txx4.gg3).2 
LINECxxl.ggE)-Cxx3.yg4),e 
LI NEC xx 1 , ygl )-CxxE, ggS ) , 5 , b 
LINEtxx3.gg3)-Cxx4.gg4),S,b 
END IF 
'Slat konson 

LINECxxl.ggl)-Cxx3.gg3>,0 
LINECxxS,ggS)-Cxx4,gg4),0 
L I NE C xx2 . ggl ) - 1 xx4 , yg3 ) . 0 
LINECxxl 1 yyS)-Cxx3,gg4) .0 
LINECxxl.ggl)-(xxa,gu2),B.b 
LINECxx3,gg3)-Cxx4,gg4),0.b 
NEXT v 



Vi »«0l tip 



Nir du ser " * _ 

8 «yder dot Z 



NEXT f 
NEXT t 
GOTO Beggnd 



END 
Farve: 

PALETTE 1.1,1,1 

COLOR 1 , 0 

STOP 
RETURN 



(CLR) 

(HOME) 
(CRSR NED) 
(CRST0P1 
(CRSR H0JREI 

.C^^STRE, 

CNST) 
RETURN) 
(SPACE) 
IRCS ON) 
(RVS OFF, 
(SORT) 
(HV/O) 
(R0O) 
(CYAN) 

(UUA) 
(CR0N) 



(BLAA) 
(GUI.) 

(ORANGE, 
(BftUN) 
(LR0D) 
(CRAAJ) 
(CRAA2) 
(1-.GR0N) 

(GRAA3) 

(H) 

<f2) 

(F3J 

(FA) 

(FB) 

(F6) 

(F7) 

(F8) 



Screen clear 
"Ome cursor 
Cursor n« 

Cursor op 
Cursor oajre 
Cursor venstre 
D <"«e hibage 
Insert 

Return 
Space 

ft *verseon 
"averse off 
Sort 
Hvid 
Rod 
Cyan 
Ulia 
Cron 
813 
Qui 

Orange 

Bron 
Lyserad 
Grd i 
Cri2 

Lysegran 
l-ysewa 
Cra a 

K^tionstasr ) 
^nknonstan^ 

^nhtionsiast 3 

*""ctionstast4 
^nhtionsrast 5 
^tionstast 6 

^"htionstast 7 
^nktionstaste 



CRSR OP/ned 

CTRL 9 
CTRL 0 
CTRL , 
CTRL 2 

CTRL 3 
CTRL A 
CTRL 5 

CTRL 6 
CTRL? 
CTRL e 

COIWMOOORE I 
COMMODORE? 
COMMODORE 3 
COMMODORE A 
COMMODORE 2 

COMMODORE 6 
COMMODORE 7 

COMMODORES 



F2 

F3 

FA 

FS 

F6 

F7 

F8 



GAMES 



Commodore 64 

Farezonen! 




1 PWHIT"<L.BLK»fliCUl}"! V053248 

T.1-5427. poke vc»2i,o 

-■(I [tr:Ti- 9,54.0,0, 1 2-1. 0.0, 215.0. 0,215, 

0,0.215. tpfi.2a.2n5. 140,31 • 137-156* 

21 DftTtl 252, J, 255.. MS, 1,25';. 224,1, 
255 .123, 1 .235, 125,3,255. 123.3,251 , 
128.3.255.0 

22 DATA >. 223, 0,3,255,9, 1,12?- 0*1/ 
255.0, 1,244, 0,0, 240.9. 0 

POT A 0-60. 0-0. 126.0.0. 153. <»»0.. 153. 
0.ft.25n.0,n. 102. 0.0- 60,0. 0-24 ,0 
24 l'ATA 1 SO , 24 , 0 . 1 5 ! . 255 , 0 , 1 9 1 . 255 . 
123. 160. SI, 1?2, 0.60, 224, 0.60. 112, 
ft, 60,56 

;T, DOTO O, 60- 24.0, 126, 0,0,192,0,0. 

231 ,0, 14, 1?5. 112, 15, 195.240 
26 DATA 0 ■ 64 . 224 . AO . 64 . *4 . 64 . 64 . G4 . 

£4,64, 64 , 64 . 64 . 64,64/64, 64 , 64 . 64 , 

64,64,0.0.0 
100 rOR A-332 TO 959*-REfiB B POKE A,B 
NEXT 

• fi2 FOP iV:V.o TO 1023 -I-TEP 3 REftli- E 
POKE n.B POKE 0*1.0 POKE 0*2.0 

;rcXT 



I I ft PAK f /i Mft -15: priKTf 204 1.14 

FOR 0=2042 Tft 2047 POKE 0.13 NEXT 

III POKE VC+27- 255 '• POKE VO39.0 
POKE VC+40.12 FOP 0-41 TO 40 
POKE VC+ft< 1 : NEXT: GOTO 10000 

113 Fftp 0-4 TO 14 STEP 2 POKE VC+fi.35 

POKE VC* I *fl , 73 : NEXT 
120 MS(2>=24ft FftR ft*3 TO 7 

: MS(fl)*H3< ft- 1 >-2 »0 D<fl> =28/ < 255- «. 

0445-lOt" > = NEXT 
140 PRINT" <ORftft2*H0ME>" -FOR 0=1 TO 12 

! PRINT,,," CRTS 0N>l I ! I — 
PRINT/ f r " < CRSR OP i SPACE - 

RVS OM'-T I I'T'CPSR OP)" NEXT 
150 FOP fl«1*34 Tft 2(323 tPflKF 0.160 

^POKE Sl+fi, 12 'NEXT PRiNT'*<HOI1E)", , 

, "<RVS ON .CRSR N0.1PE, SPACE. 

CRSR HOJRE,SPftCE.CC"=.P HOJRE. SPACE. 

CRSR HO JRE, SPACE, CRSR H0JRE, 

SPACE)" 

160 PRINT, , • "<CRSR HuJPE4,SPACE2, 
CRSR MEPTP^P VFHiTPFl.SPflCE4. 
CRSR NED/ CRSR VEI!$TPE I SPACE4, 
PVS OH.'~-.RVS OFF, CRSR NED, 
C °SR VENSTRE5 , SPfi iCE4 > " 



FOP 11=2013 TO £015 POKE ft, 32 
170 POKE fl+S I. C'HB-rT POKE 2012,225 
380 T*<I>» M .CRA2V. 

Tt<?i=» ..SOFT... 
105 TT<3"'=" . . CELLEP. . . 

fT#<5>«" Jft«"0B SCMlEPMftCHER " 
306 TJ<4>=" MICHAEL QL3EN 
31 0 POKE VC+2 1.4 POKE VC+16,4 
320 FOP ft=05 TO 30 STEP-1 POKE VC+4.A 

MF'AT Pi"U'F VT+?7«0 

Tin fop A*38 10 0 STEP-1 ' POKE V04.fi 

HEXT POKE VCU6.0 FOR fi-255 TO 2 

0 STEP- 1 POKE VC+4 . ft 

3-I0 NEXT FOP 0=1 TO 21 

PPI NT" <L. ROD . HOME - CRSR NGB3) " 

■ FOR TO 5- PRINT R!OIITf<TJ'.F:>. 
R. UFtfT 

^srt pok-f vr+4.?n«A*3'F0R B-=l TO CO 

■ next : ne: n 

POKE VCH6.243 POKE V02 1,258 
40O FOP R*3 TO 7": FOR R=30 TO 38 STEP 
- 1 : POKE VC*2*ft . B HEXT 

POKE VC*27,HSai ' 
418 FOR B*30 TO 0 STEP-1 

POKE VO'-*ft ■ Ti HFXT 

: POKF VC+ 1 6 • Hf5< 0 « 0-7$ 
420 Flip 8=255) TO* A445- 1 OO/STGP—1 

POKE VC i 2*ft, g L'=D-B<FO 
430 POKE VCM *2*ft,D:HEXT:NEXT 
440 PR I' IT" <RVS ON>J<RVS OFF>OVSTIC 

K ELI.GR (RVS DH>TASTATOR " 
450 GET ft* IF PEEKvK3?1 >*239 TMFH ft 

»««J*OOTO 470 
460 IF AtO M J M ftND A*0"T'*THEN 450 
470 POKE VC*1/ 221 POKE VC»3,221 
FOR ft=0 TO 150 POKE VC.O 

POKE VC *2/ft -NEXT 
490 FOP ft* 138 TO 2S5-P0I E VCM.ft NE;:t 
F'OI'.E VF+16-4 FOR ft=0 TO 
1-fifcF vr.j.H !ir:;i 

"■00 1-4 IF ft* "T"THEM L*l 
,'in.ii p 1-150 Si ;=PJ POKE VC < -30. 0 P3-50 
P4 "50 ; P3«*58 : P6»50 : P7=50 

x»r-="i-iiuWiO" c-o 

2010 POKE VC-PI POKE VO 1-221 
POKL VCO.fU POKE V03.221 

.poif wr:+?r.?i55 

2039 PR KMT* I < HOME . £ - BUW » " 
:FOR ft = l TO 15 PR I NT" 

". =MEXT 

2500 ?*FEEK<3632i) IF«!J AMD 0>«0 THE 
I! PlrP.T+10.6JC 

2501 IF' J ftlH' L>=0 THEM PJ-P.r-in.G-C 
2S62 IF' I AMD 1iv>=0 Al""' AfiU'cft Aim q 

V=221 THEM SW*1 
7503 ir 3M.*0 THEM 3V»SV-1« :SW*SH-.OS 
2504 IF SW ;=0 THEM SW*0-"SV=221 ■ V,->P I 
2506 OFT rtl ir WCVTMEH GOTO 2512 
2510 GOTO 2510 

2512 IF PJ>236 OP PJ<24 THEN 5000 
pokf . <jv Pf*P siwa.ft 

fi«r 53243. S>( -POKE 53250, PI 
.- r i .r«is 

2514 SC^F'CEK-: 53273 '• IF<SC ftHO S 1 -13 T 
HEM P3^40SW=0 

2515 P3«P'3+1.0C POKE 53255. P3 

IF P3>-20e THEN A- 3 GOTO 6000 

2516 IF <?.C ftHT) 16> = IF. THEN P4-40 
*H=0 

25 17 FM'F'.IM. -:iC POKE 53257/ P4 

IF P4>=200 THEM A=4 0'iTO £000 



2513 IF-SC AMD 32>=32 THEN P5-40 SM=0 
2513 P5=P5+2- Off; POKE 53259/ P5 

IF P5>«200 THEM A=*5 goto 6080 

2520 IF'iSC AMP 64?-*W TMPM P£=40 SU=ft 

2521 Pfi~P6+l.6*-C POKE 53261 /PS 

IF P£2»200 THEN R*6tG0T0 6000 

2522 IF-;SC AMP 12:J>=12S THEM .P7=40 

• SH-0 

2523 P?-Pr»!.2'C POKT 53263. P7 

IF P7;--200 TICK A^r OOTO '5000 

2524 PR 1 NT " < I (QH£ ) " , MTM< T!*, a . 1 > ; « 
: »Rr0MT*<Tn.2>-C0Tn 2500 

5000 IF PJ<24 THEM PJ^24-GOT0 2513 
5010 Tt^TI$:PPIIIT"a.ROI'.CRSP ME 03/ 

OPACE-I-DU EP Jipi.ll MET ' 
5020 PCrt'.E VG+1'221 FOP 0=237 TO 255 

pni<E vc»2.ft pokf vr:.A-MF::r 

SWW FOP n=^;-l Tfl 255 P01T VC»3.ft 

:POKE V". » l,fl-NEtfT 
5040 PU^Vfll. «"M I U?'.Tr, 3. 

.It >*G0< VHL' r 'l"..HT»' I * . 2 
5050 r<* hit, " rcPSP nr . 

CR5R VEWSTREOBU HAP HOLT:"' L"3 I " 

* fp X i it . pn H GEKUNK P" 

5060 ri*"" 000000" 

r.n»T5 pptmt" ORMHRI RECORD 

" . Hi "r.rj'UHDEP" ' IF ri.r*HI THEN HI- 
r-i t 

5030 HA IT 5032 1 .• ItS. T27 ' FOR A-3 Tfl ? 

I ■■:■» E VC+2*fl>ff*45-lO0 

pnir VC+2*n< 1/28 : MEW 
5100 POKE VC# 15©: POKE VC+1.221 

POKE VT »2 1 . 255 : PfH 'f?*?. 1 5m 

POKE VC+3 -221 QV*22l ■ SU«0 
5110 FOP flsi TO 1500 : HE "T: GOTO 2000 
■ •000 'f t=TIt : P=PEEK'-:VC+ft*2> :POKE VC.PJ 

iPOKE VC+1.221 FOR B»202 TO 221 

:POKE VC«A#2*1/B 
6010 lii ;:T RG>-r IF PJ3P THEN R0*l 
fS\7d POKF vr+w.p 

€930 IP POT|IT<pr-TirM P-P+RG 

00 T 0 6020 
6040 P-Pi,; Pi>:E VC^A*2..P POLE VC+2/P 

POKE VC.P 

6050 IF PC254 THFM 60-40 

6060 PPIHT-a.POF'.CRSP IIE02. 

SPACE )SPQGGLSET MAR DRUKNET 0 IG' 
■■ .goto 5o:-A 

lomo POKT Vi>21, 15 POKE V023. 15 

POKE VC+29* J5 
10010 POKE VC.40 POKE VC* 1/208 

POKE VC 1-2.40 POKE VC- ♦3.208 

POKE VC+6/30 "POKE VC+7.50 
10020 POKE VC+16»4-P0KE VC'4.20 

POKE vr+^.5n 

10O30 PRINT "<CRSR HEP. 

SPflCE7>S P 0 G E L S E S . T A 0 T" 
10040 PR I MT"- CRSR ME04>" 
10090 PRINT " BRUG TEST 1-VENSTRE 
2-4*3 JRE <CRSR HEP. 

0PflCE4 >SPACE*KRS1 SPVD" 
10110 primt"o:p" ; .p HFn.spArp^.Fi i Fp 

t rovSTTCK PORT 1 " 
10140 rP|MT"<CRSR NEP4. 

SPflCE2>TRVK EM TOST " 

10150 OET ft*: IF At«" "THEM 10150 
10160 PRINT CHR*<;i42>/"<t;LP'" 
POKE VC '23.0 -P0KT- VC+79.0 

POKE VC ' 21,0 POKE VC.O 
POKr vr+?.o 

nil 70 00 T 0 113 



GAMES 




V and tarn 



I *Vandt3m" skal du fungere som 
vandva?rksforstander og serge 
for. at vandet bllver ledt gennern 
de rigtlge ledninger til de rigtlge 
beholders Det vil sige fra den 
overste beholder via mellembe- 
holdere og ud til fortrugeme i den 
ill le kommune. 

Du slyrer din mand med tasteme 
SogSogskal brugetastOtilatab- 
ne for haneme og saette hastighe- 
den op p5 elevatorerne. 

Ulrik Jensen 



10 BRI&fi? 1 ; EiR^E^ 7: PAPER 7 
: INK 0 CL5 

50 LET 5U«2. LET SC»0: LET Y4« 
0, LET W«167: LET A*»'M » : LET X* 
*0 LET X3=0 LET Yi»0 LET Y2»0 
LET Y3=0; LET X2=0 LET 0»1: L 
ET H*40: LET ul=0: LET xl=0: LET 
L*3: LET AX-7 LET A2=13: LET B 
1=11: LET 62=17 
1000 REM T C O H X H Q 
1010 PLOT 0.0: ORAU £55,0 DRRU 
0,175 ORAU -255,0 DAAU 0,-175 
PLOT 191,0: ORAU 0,175 
1015 PLOT 2,2: DRAW 251, C ORAU 
0,171; ORAU -251,0: ORAU 0,-171: 

PLOT 193,0: DRAW 0,175 
1017 PLOT 1*2,133: DRAU 63,0: PL 
0T 192.113, DRAU 63 i 0: PLOT 192, 
70: DRAU 63,0 

1020 RESTORE 1*97 PLOT 55 - 160 [ 
FOR F«l TO 24: READ A: READ B: D 
RAU A,B: NEXT F 

10>0 RESTORE 1991; FOR Ojl TO 4: 
READ R: READ 6 I PLOT A , b ; DRAU 
9>0 ORAU 0,-25 ORAU -9,0: ORAU 

0,25: NEXT G 
1040 RESTORE 1992: FOR G=l TO 6: 

READ A READ B : PLOT A, B- ORAU 
3*,0 DRfiU 0,-2 DRAU -36,0: DRA 
U 0,2: NEXT G „ . 

1060 RESTORE 1990; FOR FU TO 8 ; 

READ A; POKE U5R "A**tr,A; NEXT 

1065 RESTORE 1994: FOR F=l TO 6; 
READ 5: POKE USA "5*'tF,S; NEXT 

1067 RE5T0RE 1996: FOR F»l TO 6 1 
READ D POKE USA +F,D: NEXT 

1070 PRINT OVER 1,AT 9 t 3,"A"iAT 
9 . 20; "5" ; AT 13,3;"A";AT 13,20; 5 

1992 DATA 32.95, 121,95,32.63,121 

ipi 3 DATfl ' 25S 1 126 , 60 , 2* . 3 1 . 25 , 24 

199* DATA 255,126,60,1*2.2*6,152 

ll96 £ 0fiTfi 60, 60, 2*. 126, 2*, 2*. 36, 

159? DATA 61.0,0, -25, -39,0,0. -fi, 
63,0,0,-7,3.0,0.-25.-9,0,0,25,*, 

1496 5 6flTfi*6. -5. J .0,0, -25,-9. 0 , O . 
25*4.0.0,7,67.0,0,8.-39.0.0.25 




I 



2000 REM GANG 

2001 print at i*,25 

,£5; "BY: AT 14,25; 
,25, "JENSEN" 
^OOi- PPIMT AT 1,25, 
25. "TOUEft" , AT 6,25, 
9; l print AT 9,25, 
1,25, SC 

LET A»9. LET B 
IF L<3 THEN GO 
PEM I N 5 T R 
PRINT FLASH 1; 



2003 
200* 
200S 
2006 



RUKTION": FOR C = l ti 

2007 print flash t; 

NSTRE <. H0ufiE=6 
0: NEXT C 

2006 PRINT FLASH l.AT 19.1;"0=hh 



; "MADE" , AT 15 
"ULR IK" ; AT 20 

"UATER" ; AT 3, 
"LXW»",AT 6,2 
" 5C0RE»" ; AT 1 

■7 

TO 2250 
U K T ION 
AT 12.7i "INST 
0 100: NEXT C 
AT 20,3i "5=UE 
FOR C*l TO 15 



/ 



Met) MELLEriTAMKENE 
OGER ELEVhTORFhRTEU 

0 200 NEXT C 



, AT 20,1; "OG 
r : FOR C-l " 




2009 PRINT AT 20,1;'' 
" ; AT 19,1," 
, AT 12,6; 

£010 FOR Fai TO 3: PRINT PAPER 5 
i AT F,7, " : NEXT F 

2011 PLOT 165,31 DRAW 0,-15: DR 
AU 26,0 DRAU 0,-3: DRflU -29,0; 
DRAu 6.16. PLOT 26,31 DRAU 0,-1 
5: DRAU -24,0 DRAU 0,-3; ORAU 2 
7.0: DRAU 0, 13 
£015 PRINT PLASM 



i" 

T AT 

2020 

2022 
2030 
2032 
2100 
T 12,6, 
RYK PAR 
CLS 



&EEP 

6,8, " 

print 

PRINT 
PRINT 
PRINT 
IF L 



,6; "level 
-2; PR IN 



0; AT 
O; AT 
O; AT 
O; AT 



2130 

9;L: 

1,25. 



PRINT 
PRINT 

6C 

PRINT 
PRINT 
PRINT 
PRINT 



OVER 
OVER 
OVER 
OVER 
THEN 
GAME OVER , RT 
EN TA5T" : PAUSE 
GO TO 1 



Al 
A2 
01 
62 



9, 
12, 
12, 



LA&H lift 
20,4; 
PAU6E 



AT 
RT 



6 . 25, 



•liu="; 
' -SCORE ■ 



AT 6 

"; AT 



OVER 
OVER 

over 

OVER 



0; AT 
RT 



Ba;5S H 

bi,i£;" 
B2,12;" 
Al>19 THEN 



2170 PRINT OYER 0,AT 
2172 PRINT OVER 0,RT 
2200 LET ftl«Al+l: IF 
-ET A1«S 

^201 LET 01=61-1: IF Bl<8 THEN L 

?*02 LET A2*A2*1. IF A2 > 19 THEN 

2203 LET 62=62-1 IF B2<6 THEN L 
ET B2 = 19 
2208 PRINT 



220" 
2220 
2225 
2 300 
2400 
2500 



OVER 
OVER 
OVER 
OVER 



0; AT 
0, AT 
0; AT 
OiftT 



Al,9; * 
A2,9; 
61 , 12, 
62,12, 



PRINT 
PRINT 
PRINT 

BEEP .05,-20 
FOR T = l TO 5 

IF INKEY*«"S" AND B>* THEN 
PRINT AT A , B , ": LET B«B-1: BEE 
P .0w*,50 

2510 IF lNKEVtB'*6" AND 6<19 THEN 
PRINT AT A, 6;** *: LET 5aB+l: BE 
EP .002, "50 

2520 IF A>17 THEN PRINT AT A ,B; 
: LET m«A-1: GO TO 2560 

2521 IF i6>5 AND 6<12i AND llftl- 
1<>A AND A1-2^>Aj AND iA2-l*>A A 
NO A2-2oR)> THEN GO TO 2560 

2522 IF (B>11 AND 
-1 < >A AND B1-20A 

(B2oA AMD 6S-K 
> THEN GO TO 2S60 



6<15; AND k i&l 
AND Bl< >A) AND 
>A AND 62-2oA> 



2525 IF A<6 THEN LET A«A*1: PR IN 
T AT A-l,B-l;* 1 GO TO 2560 

2527 IF iB>14 OR B*9i AND iA<>9 
AND AIj13 AND ftol7« THEN GO TO 
2560 

2530 IF B>5 AND BC12 ANtf IA-A2«- 
2 OR A-AIb-2* THEN LET AiRtl: PR 
INT AT A-1,B; M H . ^ _„ 

2531 IF B>11 AND 6 < 15 flNO lfl-62; 
0 OR A-B1=0> THEN LET A=H-l: PRI 
NT AT A + 1,B; «*■ 

2540 PRINT AT A,B,*D M „. m _ 

2541 IF INT lRND*200l >199-SV THE 
N LET X1«X1U: PRINT INK 5; OVER 

l;AT Xl-9,3;"1"; GO TO 2600 

2542 IF INT iRND * 190 > > 169 -SV THE 
N LET yl»ul+l; PRINT INK 5; OVER 



GO TO 2600 
THEN LET a«< 



l;AT Yi-5,20, 
2545 IF INKEY»»"«' 
NKEYt; GO TO 2601 
2556 NEXT t 
2859 GO TO 2150 

2560 FOR F«A TO 20: PRINT OVER 1 
, AT F , B; "D" : 6EEP .05, F PRINT 0 
VER ljat F , Bi "D" : NEXT r PRINT 
AT 20,6-2, "SPLAoHl il : BEEP .5,3. 
BEEP .3,2 BEEP .3,1; BEEP .3,0 

&EEP .3.3: BEEP .8,1; PRINT AT 
20,6-2;" "t LET L«L-lr LET 

A»9; LET 6=7: GO TO 2100 
2570 GO TO 2100 

2600 PLOT INK 7,56, V, DRAU INK 7 
79,0 LET V*V-1: tw V»144 THEN 

LET 5C=5C+1000: LET LET 
V = 167 PRINT FLR&n 1,hT 6,6, LE 

VEL ">50-l: BEEP .7,0: BEEP 1,- 

2 FOR F = l TO 3: PRINT PAPER S,A 

T F 



PRINT AT 6,6 
NEXT F: GO TO 2100 



2601 IF XI >3 THEN LET FnJ: GO TO 

6000 

2602 IF X2*3 THEN LET F=2: GO TO 
6000 

2604 IF 

aooo 

2606 IF Yl>3 THEN LET F»l: GO TO 

UN 
2606 IF 

6000 

2609 IF 
5000 

2610 IF D=*l THEN GO TO 6030 
2612 INK 5 
2615 IF A*9 AND 
ND XI >0 AND X2w 

l; RT Xl-9,3; ! 

PRINT 



X3>3 THEN LET F=3: GO TO 



Y2>3 THEN LET Fa2: GO TO 
Y3>3 THEN LET F»3: GO TO 



ET X 1*41-1 

3.3i "■" 

2620 IF A=13 

AND x£>0 AMD 

R liAT X2-13 

LET X3«X3+1 
-17,3 L "1" 

2630 IF A=17 

AND X3>0 AND 



6a4 AND A*="0" A 
THEN PRINT OVER 
LET X2«X2+1: L 
OVER l;RT X3-1 



AND 6 = 4 AND A$="0" 
X3<3 THEN PRINT OVE 
3; LET X2-X2-1. 

PRINT OVER l;flT X3 

AND B«4 AND A»*"0" 
X4<100 THEN PRINT 



VER i;AT X3-17,3,J|": LET X3 = X3- 
1: LET X4sX4+l: LET 6C-5Ctl0: PR 
INT INK 0,AT 11|25,SC 
2650 IF A«9 AND B»19 AND A*«"3" 
AND Y1;0 AND Y3<3 TH£f4 PRINT OVE 
R l;AT Yl-9.20; : LET Y2«Y2tl: 
LET VijYl-I: PRINT OVER 1, AT Y2 

2660 2 IF S=13 ArjD 6=19 AND A**"©" 
AI4D Y2>0 AND f5<3 THEN PRIfrT OV 
ER l;AT Y2-13,20, : LET Y2*Y2- 
1: LET Y3=Y3tl: PRINT OVER 1;RT 
Y3-17,S0, | 

2670 IF A=I7 AND B«19 AND AJ» 0 
AND Y3>0 AND Y4 < 100 TMEN PRINT 
OVER 1;AT Y3-l7,20;-»'; LET Y3»Y 
3-1 LET Y4»Y4ti: LET 5C-5C+10: 
PRINT INK OiAT 11,25, 5C 
2675 INK 0 
2660 LET A*»**l" 
GO TO 2150 
IF L>1 THEN 
7; "TANK NR 



sooo 

rOCC 
T 19 

OUERFYLDT" : BEEP 



PRINT FLA5M li A 
;F,AT 20, 6i "ER 
3,-20: PRINT RT 
19, 5i" **;RT 20,5; M 

3005 IF Xl>3 OR X2>3 OR X3>3 THE 
N LET H-3, GO TO 6010 
&006 LET H«20 
£010 LET X1«0 LET X2 
0; LET Y1*0: LET Y2»0 

LET D^l 
8026 GO TO 2601 

3030 PRINT OVER I, AT I*i4+F>,M, 



■0: LET X3 
LET Y3=0 



040 



FOR 

1 ' RT 



F«l TO 3 
, ni F+5,20, 1 
, AT F+9,a0, ,, ";RT 
F*13,20," u \ NEXT 
6050 LET D*0. LET 
9000 GO TO 2100 



PRINT AT Ft5 
■';RT F*9,3; * 
F*13,3; " "i RT 
F 

LaL-1 



GAMES 



Amstrad 



The Silicon 
Adventure 



En lob* computer bar 
forbindelse til den an- 
den side afjemta?ppet. 
Din mission: Afbryd 
den Inden det er for 
sent I 

I mlnlsterlet, hvor 
computeren stdr. skat 
du forcere vagter med 
hunde. Oe udgor en 
trussed for de kender 
ikke dit job - de har 
ordre pd at standse al- 
le fremmede, der 
tranger Ind, 
Ved hjffilp af din termi- 
nal ogdlnPCkandufS 
flere oplysninger, men 
det er ikke strengt 
nfldvendigt 'The Sili- 
con Adventure* gen- 
kender folgende ord: 
N.Nord.S.Syd. 0.05t. 
V. Vest Tag. Laeg. 
Smid. Kast Skyd. Ind- 
saet. Drej. Angrib. Til- 
slut T«nd. Sluk. Abn. 
Aben. Luk. Lds. Lav. 
Skriv. Kald. HJaelp. Us- 
te. 

Det er danske karakte- 
rer pS tastaturet. De 
ligger pi de to firkan- 
tede parentser samt 
p& skristregen. Held 
og lykke. Du far brug 
for det, Amstrad*ejer„. 
Peter Konner 




3 



10 ' *»»*»* W**»^*^^*^**»»*»*»*fr**fr)Hi« MJt KM JCKJtM tH K- I HHH HHHHHHHHHHHHHHt»tiHHt*» 

20 '*# SIL I CON- AD VENTURE , by Peter Konner #* 

30 '** ** 

40 ' *«»»*»»**»*»«***»****»» * tttiHHHUHIHUItX* <HHHHHHHHHHHHHHHHHHHHe» »»*»»»******» 

50 MODE 1:G0SUB 1«2C 

60 DIM 1*160 J , t*(22l , tn*i22l , kor t% 1 60 , A I , i % (22 > , x* ( 19 > , p% (60, 22) 

70 PRINT' Velkommen til" 

80 PRINT " SILICON-ADUCNTURE •■• 

90 PRINT : PRINT" <c> Peter Konner, September 1985" 

100 PRINT:PRINT"Du er blevet udpeget a4 e+ terretni ngs- tjenesten til at stoppe 
den lAbske hovedcamputer i et m l n iater ium, da den sender i nf orntat ioner til 

en computer p0 den anden side a* j erntfcppet . " 
110 PRINT: PRINT "Dec er blot to ulemper: Selve opgaven er s0 hemmeliq. at ikke 
engang vagt- mfEndende i huset ved noget om den, " 

120 PRIMT"og du tender ikke stedet, da du aldrig har vffret der *Ar ! ! " 
130 PRINT:PRINT" Tryk p0 en tast ! " 

140 CALL ttBB181 

■ 

160 w»='Hvad nu " : q»= "Hunden er hurtigere end dig og bider sig godt <aat i di 
n hats. Det sen vist ud sow om du er dAd f! " 

170 r*='En vagt kommer ud *ra sit vagtrum da hanser din tffndte lygte og skyder d 
ig ned mad et start j agtgevftr ll ■ : s*= "En vagt r§j §#r sig da du kommer 1 nd i lo 
kalet og skyder dig besl u tsowt ned mede t stort j agtgevitr ! ! " 

180 FOR x*l TO 56: READ 1%, 1* I IX) : FOR y-1 TO 4: READ kor t% ( IX, y ) : NEXT y : NEXT x 
190 FOR x = l TO 20: READ t% f 1 X, t» ( tX } , tn* < tX I : pX 11 X. tX> » 1 ; NEXT x 
200 FOR x-1 TO 19: READ x»(x);NEXT x 

210 DATA 1,1 en mArk forhal x ministeriet. Mod syd kan du hAre under 1 igel yd* og 
franord kommer der svagt lys. Der er en dAr mod ves t . , 2, 60 , 0, 3 
220 DATA 21,i det nard-vest 1 i ge hjArne a+ en stor + abr i kshal . , 0 f 14 ( 20, 0, 13 t 1 d 
en sydlige ende a* fabriks- hallen. Mod syd er der et till* rum- Hallen syne 
s weget stor og tr uende 1 , 20, 16, 1 7, 1 4 

230 DATA 32,foran en indgang mad nord 1 en bred gang. ,33, 30,0,0 

240 DATA 20,syd for en gar.g i den nordlige del a* en f abr i kshal . P0 et bord ved 

siden af dig stflr en stor EPROM-britnder , 23, IS, 19, 21 
250 DATA 16,midt i et lille depot. Alle hylder er fyldt med store tunge 

instrumenter. , 13,0,0,0, 17, i den syd-Astlige ende a* en stor fabrlkshal, D 
er er en dAr mod syd . , 19,0,0, 15 

260 DATA 23,1 den Astlige ende at en 1111* gang med mange dAr*. Fra nord kommer 

et skarpt lys. , 25 , 20, 24 , 26 
270 DATA 25,1 et kraftigt oplyst vfErksted. Lyset kommer fra *n lamp* over et li 
He arbejdsbord hvorp0 der stflr en stor loddestat 1 on. , 0, 23, 0, 0 

260 DATA 24,i et stort kontor roed et tykt t(tppe p0 gulvet. J hjArnet st0r et 

sofabord og to s to le . , 0, 0 , 0 , 23 
290 DATA 26,midt i en lille Ast-vest gang med mange dAre. , 27 , 0, 23, 28, 31 , i et d 

unkelt omklfcdningsrum. ,0,0,30,0 

300 DATA 19, her i det nord-Astlige hjArne affaor i kshal 1 en. Der er niSsten ingen 
roaskiner. Mod Ast er der en kort gang. , 0, 17, 22, 20, 22. i et stort laboratorium 
♦yldt med glas og kolber med en masse vffsker* ,0,0,0, 19 
310 DATA 52,i et stort rum nord for mini- steriets hovedcomputere. En svag bri 
se blfEser dig i ans i gtet . , 51 , 53, 0 , 0, 54 , m id t i *n gang . , 55, 0, 56, 51 , 55, pC et stor 
t depot med en masse komponen ter . » 0, 54 , 0, 0 

320 DATA 53, ved selve hovedcomputeren • Storevent i latar*r i loftet kArer ua+brudt 
,P0 siden a4 computeren er en lille port. ,52,0,0,0,58, i en lille kantine med man 
ge borde og stole. ,0,0,0,56 

330 DATA 36, i Ast-enden af en gang, Der er dAr* til alle s ider . , 57, 39, 3B, 54 , 39 , 

I et lille og snusket depot med elektroniske reservedele. ,56,0,0,0 

340 DATA 27,i et fantastisk *lot laboratorium fyldt med mflleudstyr 

computer* og prototyper a+ nye maskiner. ,0,26,0,0,33, i en stor mArk parkerings 
kfElder* Der er ingen biler at se. ,0,32,0,0 

350 DATA 28, i den vestlige end* af en lille gang med mange dAre. Mod nord kan du 
se en kort bred gang og mod syd er et lille rum. , 30, 29, 26, 0 

360 DATA 29 t p0 et lille toilet. Det s*r ud som om d*r ikke har vitret ryddet op 

lfcnge og gulv*t flyder med brugte h0ndk lffder , , 28, 0, 0, 0 

370 DATA 30, i en kort bred gang. Vtfggene ersarte a* snavs oq olie. Der er en ind 

gang mod vest . , 32 , 29, 0, 31 
380 DATA 2,foran en recept I ons-skranke i etstort lokale.Der er dAre p» alle aide 
r, ,3, 1 ,4,6,33, syd for en stor elevator i en lang gang med mange dAre, 5, 41 , 42, 3 

390 DATA 36 t i vest-enden af en lang gang medrum p0 nfEsten all* sider. Mod syd er 
deren stor dAr . , 0, 0, 35, 37, 39, i vestenden af et stort kon+erencelokal*. , 

38,0,40,0 



400 DATA 37,ved en stor tavle i *t enormt auditorium. P0 tavlen st0r skrevet e 
n PC-kode. 1 USOETFCSD' * ,0, 0, 36, 0, 38, i et rum med et 11110 skrivebordP0 bordet 
st0r en PC 1 er . , 36, 39, 0, 0 

410 DATA 40,ved et stort bord i Ast-enden afet start konf er encel okale. , 0 , 0, 0, 39 , 
43, p0 et Mile toilet med en hylde ved den ene vtEg. , 0, 42, 0, 0 

420 DATA 41 t p0 et lille kontor der antageHgt tilhArer en travl program 

raAr i det programudskr i f ter 1 igger spredt rundt p0 gulvet*, 35, 0,0,0 

430 DATA 14,i den syd-vestlige ende af en star fabrikshal. Mod 5yd er der en 

elevator. Store og smO maskiner st0r mellem h i nanden . ,21,5, 13,0 
440 DATA 42 t midt i en lang gang med dAre p& nfEsten alle a i der . , 43, 0, 44 , 35, 44 t x e 
n lang gang, , 0, 45, 46, 42, 49, p0 et lille stAvet kontor. I stAvet st0r et telefo 
n-nr. 00-9182736,48,0,0,0 

450 DATA 45, p0 et flot kontor med tre skriveborde ved siden a-* hinanden.,4 

4,0,0,0,47,1 et meget lille depot med Iwidevftgge. ,46.0,0,0 

460 DATA 46,1 den Astlige ende af en lang gang med en dAr mod syd. Mod nord ka 
n du hAre en mffrkelig lyd ! ,48,0,0,44,48, i et vaqtrum, Du st0r overfor enstor s 
chGferhund der gAr arrigt ad d ig ! , 0, 46, 49, 0 

470 DATA 60, Du stOr udenfor bygmngen hvor du b 1 i verovermandet af et tilkaldt va 
gtmandskab og drfEbt p0 stedet 11,0,0,0,0,16,1 et lille vagtrum med en masse ele 
ktronisk udstyr. En vagtmand sidder ved akrivebordet med en pistol. , 17,0,0,0 
480 DATA 3, i et af vagtrummene. Heldigvis for dig er der ingen vagt endnu.,0,0, 

I, O a 4,p0 et toilet. Der er ikke noget af interesse her. .0.0,0,2 

490 DATA 5,Du stDr i en elevator. DAren er lukket og der er fire knapper at try 
kke p0. . k / s / 1 eller 2. , 0> 0, 0, 0, 6, i den Astliqe ende af en gang. , 7, 0, 2, 8 
300 DATA 7, i en lille waskinstue. Der er datatermi naler over det hele men inge 
n af dem v i rker . , 0, 6 , 0, 0, 5i , syd for en elevator i den vestliqe ende af en 

gang. Mod «?yd er en dAr med en speciel 0bn i ngsmekan i sme, 5 , 0, 54 , 0 
510 DATA 8,midt i en Ast-vest gang. , 9 , 0, 6, 10, 9, i et lille depot med disketter.,0 
,8,0,0,10,1 den vestlige *nde a* en lang gang. Der er 0bninger mod syd og nord., 

II, 12,8,0 

520 DATA 11,1 en stor maskinstue fyldt med termi nal er . En af terminalerne er t(tn 
dt. ,0,10,0,0, 12, pO *t flot kontor med et stor t skr 1 vebord. ,10,0,0,0 
330 DATA 1,2, en lille 1 orome 1 ygt e , 1 ygte, 2 , 9 , en diskette tit en PC 1 er , d isket te, 3 V 1 
2,et telef an-modemtmodem, 4 , 16, en pose med d i oder , d i Oder , 7 , 22, en net-ledning til 
en PC 1 er , ledn i ng 

540 DATA 8, 24, en hvid tele* on, telefon, 9, 25, en el ek t ron i k-skruetr*kker , skr uetrfl-kk 
er,10,26,et bundt nAgl er , nAgl er , 1 1 , 31 , en grAn gasmaske, gasmaske 

550 DATA 12, 33, en lille og fin loddeko lbe , 1 oddekolbe , 6, 40, et par 14seDri 1 ler.brl 
1 ler , 13, 41 , en manual til et modem t manual 

560 DATA 14, 43, en stall mAnter , mAnter , 1 5 , 47 , en helt ny EPR0M, eprotn, 16,49, et lille 

rnagne tk or t , magnet kort , 17, 53, tre sm0 tffnger , tffnger 
370 DATA ie,55,no9l? mods t ande , mods t ande , 1 9 , 58 , e t stort saftigt kAdden , kAdben , 20 
,59, et ubrugt pr i ntkort , pr i ntkort , 21 , 2S, en stor indisk kampkni v , knl v 
580 DATA Det kan du ikke her 1 1 , Der sker ikke noget ! f OK I , Du har, INGENTING! ! , , Du 
kan ikke bffre mere!, Det kan du ikke!,Det nytter ikke herf, DAren g0r op og du for 
tsfftter ,GAr noget andet her! 

590 DATA Du mangier en vigtig ting!, DAren g0r i med et hA j t 'KLIK'.aHvor tdbelig 
kan du vffre ! ! , Vag ten synker sammen som en kludedukke!,Du ramte i kke ! ! f , Du har i 
kke mere ammun 1 1 ion 1 1 , DAren er Iflst f , Hvem ? 
600 CLS 

610 1X»1:PRINT 
620 WHILE 1X<61 
630 cU<*0 

640 IF 1%=1B AND i%(21)*0 AND vV*=0 THEM PRINT'Du star ■ ♦ 1 * 1 1 8) : PRINT ■ Vagten ser 
dig lige i Ajnene, og du opdager for sent at han sigter p0 dig og skyder!! 

) ":G0T0 1910 

650 PRINT'Du st0r •*t»ll%l 
660 FOR x=l TO 21 

670 IF p%Cl* t x>M THEN PRINT u Du kan se M Jt«(x) 
680 NEXT x 

690 IF ltt<»33 AND (a«="n u OR a»*"A* OR a«- fc v") AND oX«0 THEN PRINT-Du faldt i et 
hul og briCkkede n&kken. " :G0SUB 1910 
700 PRINT w«i: INPUT sv* 
710 sv*»L0WER*(sv*) 

720 a*=LEFT*(svS,2) : b*=LEFT« (sv*, 3) : c*-LEFTS ( sv*, 4 ) 
730 IF a*» H g0 - THEN a»»MID* ( sv* , 4 , 2) 

740 IF a*-"n" AND kort%M%,l>>0 THEN lX=kort%! 1%, 1 ) :ok = l 
750 IF a*- - s* AND kor t% t IX, 2) >0 THEN 1 %=kor 1% ( 1% , 2 ) ; ok= 1 
760 IF a*« h A" AND kor t% ( 1 % , 3 > >0 THEN 1 %=kor t% ( 1 %, 3 ) : ok» 1 
770 IF a*-"V AND kort%M\,41>0 THEN 1 %=kor t% U % , 4 1 : ok = l 

780 IF 1%=48 AND i%(19)=0 AND k%-0 THEM PRINT M Du st0r " + 1*148) : PRINT q*:C0SU8 19 
10 



790 IF 1X=56 AND oX=l THEN PRINT r*: GOTO 1910 
BOO IF 1X-37 THEN PRINT s*:GOTO 1910 

810 IF b»-"tag" THEN ok*l:GOSUB 1020 

620 IF b»='l(tg" OR b*»"kas- OR b$='siai" THEN ok=l:GOSUB 1080 

830 IF b»»"lky" THEN ak=l:G0SUB 1140 

840 IF b**"t(5n- THEN ok=l:GOSUB 1180 

830 IF b*»-slu" THEN ak=i:G0SUB 1220 

860 IF c«-Mr>ds" THEN ok = l:GOSUB 1230 

870 IF c»»'skri- THEM ok=i:GOSUB 1320 

880 IF bl""liw" AND 1 X=25 THEN Ok*l:G0SUB 1350 

890 IF b*«"0br\' OR b*="0be" THEN ok=l:G0SUB 1390 

900 IF b*»"tuk" OR b»»"10s _ THEN ok*i:G0SUB 1510 

910 IF c*=-t!is" THEN ok=l:GOSUB 1630 

920 IF 1X-11 AND c*='drej " THEN ok*l:GOSUB 16S0 

930 IF c»-"Uald" OR cSo-hjffl" THEN ok-1: GOSUB 1730 

940 IF UX»18 OR ]X=48> AND b*= B gW THEN ak=l:G0SUB 1740 

950 IF c»="ar,gr- THEN ot(«l:GOSUB 1770 

960 IF C»«MiSt" THEN DttMlGOSUB 1810 

970 IF 1%»5 THEN ok=i:GOSUB 1360 

980 IF IX=60 THEN PRINT 1»(60>:G0T0 1910 

990 IF okOl THEN PR I NT " Be k l ager , men d*t kan j *g ikke her | ' 
1000 

1010 WEND 

1020 IF «X>3 THEN a*7:G0T0 1070 

1030 IF 1X-48 AND kX=l AND INSTR CsvS, "kAdb" > THEN PRINT q»:GOSUB 1910 

1040 b*=MID»(5vS,5t IFOR x = 1 TO 21 i IF pXUX,x)»l AND LEFT* IbS, 4 ) "LEFT* < tn* ( x ) , 4 > 

THEN GOTO 1060 ELSE NEXT .< 

1050 a=8:G0T0 1070 

1060 iX(x>=l : a=3: ©%■»%♦ l : pX( IX, x>=0 

1070 PRINT x*Ca> : RETURN 

1080 IF eX<l THEN a=8:G0T0 1130 

1090 c«=(1ID*(sv»,5>:lF LEFTS(c*,U=" ■ THEN C*"MI D* ( sv* , 6) 

1100 FOR x=l TO 2JiIF iX(x)"l AND LEFT* (c*. 4 ) =LEFT* ( tn* t X ) , 4 ) THEN GOTO 1120 ELS 
E NEXT x 

1110 a=8:G0T0 1130 

1120 a-3:eX-eX-l:pX( 1X,x>«1: lXUt-O 
1130 PRINT x*(a):RETURM 

1140 IF iX<5)=l AND skud=6 THEN a»17:G0T0 1170 
1130 IF »X(3)-1 THEN a=16 ELSE a~12:G0T0 1170 
1160 skud»skud*l 
1170 PRINT x*(a> :primt:return 

1180 IF IX<>38 AND tX(l)M AND oX»0 THEN oX=l : a a 3: GOTO 1210 

1190 IF 1X=38 AND pX(38,7)=l AND INSTR IsvS, "pc " ) AND pcX=0 THEN pcX«l : 1 * i 38 1 = " 1 
et till* rum m*d *t skrivebordPO bordet stflr en tffndt PC ' »r - : a-3: GOTO 1210 
1200 a«8 

1210 PRINT -$(a) : PRINT : RETURN 

1220 IF INSTRIsv*. Mygf ) THEN a=3 : oX»0: GOTO 1240 
1230 3=9 

1240 PRINT K*(a) : PRINT : RETURN 

1230 IF 1XOH AND 1XO20 AMD 1X<>38 AND 1X033 THEN a-i:G0T0 1310 

1260 IF 1X-11 AND INSTR (svS, "tele") AND p%(ll,3)-l AND pX(ll,B)*l THEN a«3:*X-l: 

GOTO 1310 

1270 IF 1X=20 AND INSTR I sv« , ■ epro" i AND iXU51=l THEN l X ( 13 ) =0 : pX (20 , 1 3 ) -1 : *X«»X 
-l:PRINT"Epram'nen bliver hurtigt prograinm#ret , og or nu klar til brug 1 et kre 
dsIAb ! ' : a=6: progX=l : tS( 131 ="en programmera-t EPR0M":G0T0 1310 

1280 IF 1X=38 AND iXI2»=l AND I NSTR ( sv», "d lsk " > THEN a=3: IX (2) -0: eX-eX- 1 : pX ( 38, 2 
)«l:d%"i:GOTO 1310 

1290 IF 1X«33 AND iX(20) = l AMD INSTR < t* (20) , "ffErdigt"! THEN GOSUB 2020 ELSE a=12 
:GOTO 1310 
1300 a=8 

1310 PRINT x*(aJ :PR1NT:RETURN 

1320 IF 1X=38 THEN 1330 ELSE a=l:GOTO 1340 

1330 IF dX=I THEN PRINT"PC ' eren skriver fAlgende rneddel*ls* til dig: M0VEDC0I1PUT 
EREN BEFINDER SIG P' 2. SAL I DENME BYGNING. INDS#T PRINTKORTET I PORTEN ! " : a-6 
1340 PRINT x*(a):RETURN 

1330 GOSUB 2000: IF prX=l THEN 1360 ELSE a=12:G0T0 1380 

1360 PRINT:PRINT"Du fflr hurtigt sat tingene rigtigt sammen, ag at0r nu med 

• t fitrdigt i ndst i kspr intkor t I!" 

1370 pX(25,4)=0:pX(25, 15J=0:pX(25, 18)-0:pX(25,2J=0:t«(20)=-«t fltrdigt printkort" 

:e %=eX*l: iX(20>=l : a=6 

1380 PRINT x*<a» : PRINT: RETURN 

1390 IF iX(10)=l OR iX(16»=l THEM 1400 ELSE a=12:G0TO 1300 



GAMES 



1400 IF IX- 17 
N 1410 ELSE a 
1410 IF 1X=17 
IF 
IP 
IF 
IF 
IF 
IF 
IF 



OR 1X=46 OR 
•9: GOTO 1500 



1X=36 OR 1X=51 OR 1X»52 OR 1X-47 OR 111=38 OR 1 %- 1 8 THE 



1420 
1430 

1440 

1430 

1460 

1470 

1480 

1490 

1500 

1510 

1520 



AND 

1X=18 AND 
1X-4* AND 

1X=47 AND 

= and 

1X-38 AND 
1X=51 AND 
1X=32 AND 
a=12 

PRINT x*(a) 
IF i%(10)s>i 
IF l\=l? OR 



1X(10>=1 THEN a=10:kortX(17,2)«I6:l%=18:G0T0 1500 

iXUOl-l THEN a=10:kartX(18, 1 1=17: 1X-17:G0T0 1500 

i%(10)-i THEN a=10;kortX<46,2>=47: 1X»47:G0T0 1500 

tXU0)=l THEN a=10: kortXM7, U=46: 1X=46:G0T0 1300 

1X(10)=1 THEN a=10: kor tX ( 36 , 2 > -38 : 1X-38:G0T0 1300 

1XU0)=1 THEN a-10:kort%l38, 1J-36: 1X«36:G0T0 1300 

i%U6)-l THEN a=10:kortX(51,2>*52: 1X=52:G0T0 1300 

iX(16)=l THEN a*10: kortX(52, 1)*51 : 1X=51 :G0T0 1500 



print:return 

OR iX(16>=l THEM 1520 ELSE 
1X-46 OR 1%=36 OR 1X-51 OR 



a=12:G0T0 1620 
1X-52 OR 1X«47 OR 



1X=38 OR 1X=18 THE 



N 1530 ELSE a=9:GGT0 1620 



1530 
1540 
1330 
1560 
1370 
1380 
1390 
1600 
1610 
1620 
1630 
1640 
1630 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



1X=17 

ix=ie 

1X-46 
1X=47 
1X=36 
1X-38 
1X-31 
1X-52 



AND 
AND 
AMD 
AND 
AMD 
AND 
AMD 



iXtlO)"! 
iX( 10) =1 
1X(10)-I 
iX( 10)=1 
iXUOlM 
1 V. ( 1 0 ) ■ 1 
i '.' : 161-1 



THEN a*13:kortX(17,2>-0:G0T0 1620 
THEM a«13:kartXU8, 1 ) -OlGOTO 1620 
THEN a=13:kDrtX(46,2)=0:G0T0 1620 
THEN a-13: kartX 147, 1) -OlGOTQ 1620 
THEN aal3:kortXl36,2>-0:G0T0 1620 
THEN a- 13: tor t'/. ( 38, 1) =0: GOTO 1620 
THEN a=13:kortXl31,2J-0:G0T0 1620 
THEN a=13: kortX(52, 1 )=0:GOTO 1620 



) THE 



AND 

a-12 

PRINT x* )a) ."PRINT : RETURN 

IF tX<>36 OR 1X053 THEM a=9:G0T0 1670 

IF 1X-38 AND INSTRl5V», "pc"> AND 1X<71»1 THEN a=3:G0T0 1670 
IF tX-53 AND INSTR ( av*, " pr i n " ) AND 1X(20)«1 AND INSTR 1 1« 120 ) , ■ + (tr d 1 9t 
N GOSUB 2020 
1660 a°l 

1670 PRINT x* (at : PRINT : RETURN 

1680 IF 1X-11 AND pX(U,3)=l AND pXtll,8t-I THEN 1690 ELSE a-ll:G0T0 1720 
1690 GOSUB 2010: IF INSTR lsv$, ■00-9182736" ) AND drX»l THEN a=6:G0T0 1700 ELSE 
:G0T0 1720 

1700 PRINT'Du drejer r.umineret p0 telefonen og hAreren hyletone -fra modem 1 et ■ I : FO 
R *-l TO I6JPRINT". "I : FOR y-1 TO 200:NEXT y : NEXT x 

1710 PR I NT " P0 terminaler. hommer *Algend* beaked *radlt hoveduvar ter : Husk dioder 
stande, print, programmeret EPROM, 
at lav* printet ! ! ■ 
x*(a) :PRINT:return 

ingen der lyttsr til dine 
vX-0 THEN PRINT "Vagten *kydei 



a-*2 



, mad - 
fSkkere for 
1720 PRINT 
PRINT ' 



tfcnger, loddekolbe og akruetr 



Der er 



IF 1X=18 AND 



klagerOb! ! " : RETURN 
dig med en lille pistal 



:60T0 1 



1730 
1740 
910 

1750 IF IX=4B AND INSTR Isvt, "kAdb" ) AND iX(19)»l THEN l«(48)="i et vagtrura. En % 
tor schttfer- hund gnasker fredeligt p0 et kAdben. " : kX-1 : i X ( 19) -0: eX«eX- 1 : GOTO 1 
760 ELSE a=14:G0T0 1910 
1760 PRINT x»fa):RETURN 

1770 IF 1XOJ8 AND 1X048 AND iX(21)=0 THEN a=19:G0T0 1800 
1780 IF IX-48 THEN PRINT q*:GOSUB 1910 

1790 IF 1X-18 AND iX(21)-l AND vX=0 THEN a= 1 5 : vX=l ; 1 » U 8) 1 et a* vagtrummene. 
Over skrivebordet ligger en did vagtmand med tl knivstlk i ryggen!':lX 

(21 >=0:eX=*%-l : pX ( 18, 21 ) -1 : pX ( 18, 5) =1 : t* IS > ="en mie pi stol ■ : tn* (5> =-pi ato I " 
1800 PRINT x«(a) :PRINT:RETURN 

PR I NT: PR I NT *»<4>:IF eX=0 THEN a=5:G0T0 1850 
FOR x=l TO 21: IF iXlx)-l THEN PRINT t«lx) 
NEXT x 

a-6 

PRINT x* (al : PRINT : RETURN 
PRINT l«t5) 

PRINT'Tryk p0 er. a* knapperne:" 
aa*=LOWER»(INKEY«t : IF aa»»" THEN 1830 

IF aa*="k" THEN 1X=14 ELSE IF aat-'s" THEN 1X»2 ELSE IF aa»»"l u THEN 1X-35 
IF aa*=-2- THEN 1X=51 ELSE 1880 

PRINT-Elevatoren bevffger Big hurtigt og stopper 50 med et sdt. Du g0r 

ad de 0bne dAr* .': RETURN 



1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
ELSE 
1900 
ud 

1910 PRINT: INPUT-Vi 1 du prAve i gen (j/n) 7 

N RUN ELSE END 

1920 SYMBOL AFTER 90 

1930 SYMBOL 91,0,0,236,18,124,144,110,0 
1940 SYMBOL 123,62,80,144,252,144,144,158,0 
1950 SYMBOL 92,48,0,120,12,124,204,115,0 



,svar»:lF evar*--^ OR svar»="J* THE 



1960 SYMBOL 96,21,36,126,102,102,126,102,0 
1970 SYMBOL 93,0,2,124,206,214,230,121,128 
I960 SYMBOL 125,58,106,206,211,230,109,164,0 

1990 RETURN 

2000 IF pX(25,4)=l AND p\(25,9)=l AND p%(25,12)=l AND p%l25,15)=l AND ppog%=l AN 
D pX(23,17)-l AND p%(25, 181=1 AND p% ( 25 , 20 ) =1 THEN pr%-l:RETURN ELSE pr%»0:RETUR 
N 

2010 IF p%Ul,3)=l AND p%<ll,B)-l AND p%(ll,13)«l AND i%=l THEN dr%= 1 ; RETURN ELS 
E dr%=0: RETURN 

2020 CLSIPRINT- TILLYKKE !!" 

2030 PRINT:PRINT"Hovedcomput#ren *r 'g0et ned ' )!!!!!" 

2010 PRINT:PRINT"Du lAfite dette adx/enture-apil ganske -fortrfEf t »l igt. " 

2050 PRINT:PRINT"Nu kan rninisteriet - takket vffr# dig - atter slappe a* e*t«r d 

enn* uh»ldige episode." 

2060 PRINT:PRINT-Vl s«s m0»U* mart til »n anden opgave!'' 
2070 FOR x=l TO 1 0000: NEXT x : END 



New Brain 



Komplekse Tal 



Dette program giver dig mulighed 
for at regne med komplekse tal pd 
din N.B. Man indtaster de to tal, 
man ensker at regne p3, pa nor 
malformen for komplekse tal, 
a+bl t hvor a er selve tallet b star 
for hvor mange gange der skal 
ganges med den lmagina?re faktor 
L Derefter Indtastes den opera- 
ton, man ansker udfart 
og facltet fremkommer p3 skaer- 
men. 

Programmet kraver en forhSnds- 
viden om komplekse tal 



1900 PUT 31 *R£H afc* CLEAR SCREEN M 
2000 PUT a3>"C M 'Rll1 ** CHR 2 ** 
2100 CLERR 

2200 PRINT "PROCRAMMET KAN UDF0RE FOLCEN 
DC OPERRTIO-HER PRfl KOMPLEKSE TAL • « 

2300 PRINT 

2 4QO PRINT "X+V>X-Y,K*V-X/V-HVOR X OG V 

ER KOMPLBKS-E TRL PAA FQRMEN A+toi" 




£420 PRINT 

2440 PRINT 

+ t — - * EL . 

230O PRINT 



UNDER OPERATION SKAL ANGIVEG 



2920 PRINT "PROGRAMMET STOPPES VED AT IN 
DPUTTE E SOMI . TAL" 

2990 PRINT 

2600 INPUT < ■ 1 • TRL < *^t>i > T "> A» 
2650 IP A0-"E" END 

2700 INPUT < "2, T#%L C*-*fc>i> T " > 
2G00 INPUT C "OPERATION T M > Om 

GOSUB 6000 



IP C*"*" + " GOTO 40QO 

3020 IP C«-*'-'* GOTO 4300 

3040 IF C*-' f *" GOTO 46O0 

3060 IF C0»"^" GOTO 490© 

3300 PUT 1 1 ' GOTO 2000 

4000 REM 4c* -* **: 

4020 PR-P3+P4 * PB-P3+P6 

4040 GOTO 9000 

4300 rem mm - mm 

4320 PA-P3-P4 I P0-PS-Pe 

4340 GOTO 9000 

4^00 PR-P3*P4-P3*P6 

4640 PB-P3*P6+P4*P3 

4660 GOTO 9000 



4940 
4960 



©100 

0200 



O60O 



PR»< P3*P4*P3*P6 >*^< P7 + 
PB-< P4*P5"P3*PS 

GOTO 9OO0 
REM 

P1-INETR< A*- "4**" > 
P2-INSTR< D* > 
P3»-M I D0C A» * U<Pl-I>> 
P4»-M I D»< B* * 1 4 * P2- 1 > > 
P3-VAL< P3* > 

P4-VRL< P4» > 

P5«-MJD»< A* - < PI**-* >> 

P6*"M I D B* * < P?M > > 

P5-VHL< PM > 
P€-VflL<P6»> 
RET 

PRINT I PRINT I PRINT PA j 
GOTO 22O0 



CHRLLENGE 



VIC20 

Pladekartotek 




Endeiigt Her er redntngen tor aile 
de frustrerede musikelskere. som 
mangier system I samlingen af 
Bach eiler Bee Gees. Programme! 
er til VIC-20 med 1 6 K Rams udvi- 
delse. og det Indehoider et sandt 
hav af muiigheder: Sortenng i al- 
fabetisk orden efter kunstner- 
navn. 50gning efter titel eller 
kunstnemavn og udpnntnlng pa 
printer. m.m. 

Pladekartotek kan rumme op til 
na?r de 300 forskelllge plader 
(Kunster. titel) og kan med meget 
f5 a?ndnnger ogsa kare pa" C64. 

Hurt Petri Petersen 



1 REM*##********+** 

2 REM PLflDEKflRTOTEK 

3 REM * * * * * * * ♦ * * ♦ *## 



PR INT "IT 

5 PRINT" 

6 PRINT" 

7 PRINT" 
3 PRINT" 
9 Pr.INT" 
16 PRINT" 

11 PRINT" 

12 PRINT" 

13 PRINT" 

14 PRINT" 

15 PRINT" 



PRINT ' PRINT = PRINT : PRINT 



* 
* 
* 



PLflDEKflRTOTEK 



* 
* 
* 
* 



KURT PETERSEN 



#" 

* " 

# H 
#« 

*" 
* 



V II 



a 



CHALLENGE 



16 
17 
18 
19 
2© 
21 
22 
23 
24 
25 
26 
27 
28 
2? 
30 
31 



FOR X"l TO 2Q00:NEXTX 

REM*##********* 

RENHOVEDPROGRAM 

REM#*******#*** 
PRINT'T 

PRINT" HOVEDMENU" 
PRINT" OS FUNKTION 
PRINT"KUNSTNER-S0GN I NC 
PR I NT " OPRET/HENT/fl JOURF . 
PRINF'PRINTER-UDSKRIFT 



rfls r 


■"PRINT 


K " 


PRINT 


0 " 


: PRINT 


P " 


: PRINT 


S " 


: PR I NT 


T " 


PRINT 


U " 


: PR I NT 



PRINT"STOPPE PROGRAM 
PRINT"TITEL-S8GNING 
PR I NT "SKAERM-UDSKR I FT 
GETX* 

IF X* = " "THEN'""* 

IF<X*O"0">ANDCX*O"U' , )ANDCX$O"K">ftND<X*O"T u >AND<X*O"P">AND<X*O"S")THEN 

0SUB40 

IFXJ="0"THENG0SUB133 
IFX$="U"THENGOSUB43 
IFX*="K"THENG0SUB74 
I FX*= " T " THENG0SUB39 
IFX**"P"THENG0SUB1 12 
IFX*="S"TNEN39 
GOTO20 
END 

PR INT "3" : PRINT : PRINT" ETW'WH'WiTiTittllLLEGAL KOMMflNDOS" 
FORX=1TO1000-NEXTX 
RETURN 

PRINT"nB»W"Wfl-ISTE SORTERET ? J/H" 
GET V* 

IF YS»""THEN44 
IFV*="J ,, THEHG0TO62 
IFV*="N"THENG0T052 
IFY*O"J"ANDY*O"N"THENGOTO40 
REM *#***»#*****»*^ 

REM SUBRUTINE FOR ALFABETISK "BOBLESORTERING" 

ren mim**m— amm<ii>i**<i*'*«»*"i'*^ 1 ^m^jfcj^^^j****-^^^^*-*^^^^^ 

PPINT"7ie«aCHlW ALFABETISK SORTER I NG" ■ PRINT : PRINT" DET TAGER NOGEN TID" 
FORF B 1 TO300 : NEXTF 
FOR1-1TOCN-1) 
FORY=*lTO<N-l) 
IF fl*(VX-RJ<V+l)THEN6l 
REN OMBVTNING 

BVTf»A*<V) I A*<V)=R»CV+l> ^fl*<V+l >=BVT* 

REM TITLERNE OMBVTTES FOR AT SVARE TIL BE RESPEKTIVE KUNSTNERE 
BVTl*-B*<V>:B*<V)=B*CV+l>'B*<V+l)=BVTlt 
NEXT V : NEXT I = PR I NT " nfliOT" 

PR I NT " D" : PR I NT ' PR I NT : PR I NT : PR I NT : PR I NT : PR I NT : PR I NT — — — ^— - 



32 
33 
34 
35 
36 
37 
33 
39 

46 
41 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
53 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
79 
71 
72 
73 
74 
75 
76 

r r 

78 
79 
30 
31 
32 
33 
34 
85 



PRINT" I I" 

PRINT" ILISTE OVER PLABER I" 

PRINT" I I" 

PRINT" " 

FOR X-l TO1000:NEXTX:PRINT":T' 

PRINT^ttWfWtfPMKRTLS-TRSTEN REGULERER HRSTIGHEDEN 

FOR 14=1 TO 700:NEXTW:PRINT"rr : PRINT" W«ttOM" 

FOR I-lTONt PRINT 

G0SUB101 

NEXT I 

RETURN 

REM ****************************** 

REM SUBRUTINE FOR KUNSTNER S0GNING 
REM ****************************** 
LET FUNDET«0 

PR I NT "73" - INPUT" INDT. KUNSTNER" . W* : PR I NT "O" i PRINT 
FOR 1*1 TON 

I FA* < I ) =W«THENGOSUB 1 0 1 
NEXT I 

IF FUNBET=9THENPRINT"KUNSTNEREN 
IF FUNDET-0THENPR I NT : PR I NT " PRGV MED EN 
FORU-1 T01580-NEXTIJ 
RETURN 



FINDES 



IKKE I KARTOTEKET. 
ANDEN. " 



E 



CHALLENGE 



86 REM W************************* 

87 REM SUBRUTINE FOR TITELS0GNING 
38 REM ♦♦♦♦*♦ t **♦*♦♦♦♦***♦♦ 

89 LETFUNDET=0 

99 PR I NT "D" : PRINT : I NPUT " I NBTAST T I TEL "; D* : PRINT "3" : PRINT 

91 FOR 1=1 TO N 

92 IF B$<I)»D» THENGOSUB 101 

93 NEXT I 

94 IF FUHDET=OTHENPR I NT " DER FINDES INGEN PLAB-ER MED DENNE TITEL" 

95 IF FUNDET=0THENPPINT PRINT"PROV EN fiNDEN. " 

96 FOR U«l TO15O0'NEXTU 

97 RETURN 

98 REM **#♦♦*#*#*##**#**#*!♦♦***#♦:**# 

99 REM SUBRUTINE FOR SKfiERM UDSKRIFT 

100 REM *******+********#**********#* 

101 PRINT"PLADE NR. "IMPRINT" 1 PR I NT 

102 PR I NT" KUNS TNER : " Af ( I ) 

103 PRINT*' " 

104 PRINT"TITEL:"B*0> 

105 PRINT" " 

106 F0RF1=1T022:PRINT"*"; : NEXTfi 
197 FUNDET=1 

108 RETURN 

109 REM*##**##*****#****#*#****5M(^+* 

110 REM SUBRUTINE FOR PRINTER UDSKRIFT 

1 1 1 REtmmmmmmwmmmimmmaf** 

112 GPEN4,4 

113 PRINT#4,CHR*<13> 

114 PR I NT#4 , CHR*< 1 4 > : PR I NT*»4 . CHR* < 1 6 > " 30PLADEL I STE " 

115 PRINT#4,CHR*(13> 

1 1 6 PRI NT#4 , CHR*< 1 6> " 1 5KUNSTNER " i 

117 PRINT#4-CHR*<16>"50TITEL" 

118 PRINT#4.CHR*<15> 

119 PRINT#4.CHR*<13> 

120 FOR I=1T0N 

121 IF fl»<I)="0"ORBJ<I>-"»" THENG0T0128 

122 PRINT#4,CHR$C16V'05NR."; :PRINT*4,I; 

123 PRINT#4,CHR*C16J"15", : PRINT#4. R*< I > ; 

124 PRINT*4,CHP$<16)"50 M ; 

125 PRINT#4,B*(I) 

126 PPINT#4,CHR*<13) 

127 NEXT I 
123 CLOSE 4 

129 RETURN 

130 REM********************************* 

131 REMSUBRUTINE FOR OPRET/HENT/flJOURFOR 

132 REmw0MW**MiM**mm*M*mMmm 

133 PR I NT "3" : PRINT" MENU" 

134 PRINT" SHI FUNKTION TflSTB" PRINT 

135 PRINT"flJOUPFOR PLADE A " : PRINT 

136 PR INT " BRUGERVE JLEDN I NG B SPRINT 

137 PRINT' 1 OEM SORTERET FIL G PRINT 

138 PRINT" INDLAES PLADEFIL I PRINT 

139 PRINT"OPRET NV FIL N PRINT 

140 GETVt 

141 IF V*»""THEH140 

142 IFV$="fi"THENGOSUB200 

143 IFV*="B"THENG0SUB212 

144 IFV*="G"THENG0SUB1S6 

145 IFV*="1"THENG0SUB171 

146 IFVJ="N"THENG0SUB152 

147 IF<V*0"H ,, >flND<V*0"B">ftND<V*0"G">fiND<V»0"r , )flND<V*0"N" >THENGOSUB40 

148 RETURN 

149 REM************ 

150 REM NV PLADEFIL 

151 REM*#**#******* 

152 PRINT"30HUSK AT GORE PLAD3 ":PRINT"TIL EKSTRfl PLflDER (NV^PRINT 

153 PRINT"EKSTRfl PLflDE I NUT. =#/#" :FORX=1TQ350ONEXTX 

154 PRINT":?' = PRINT 

155 INPUT"INDT. REGISTERNR. ";R 

156 PRINT"- INPUT" I NDTflST ANTfiL PLflDER" ;N 

157 PR I NT : PR I NT " I NSftET KASSETTE" : PRINT 



CHALLENGE 



158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
163 
169 
170 
171 
172 
173 
174 
175 

:;v 

177 
176 
17? 
ISO 
181 
132 
183 
184 
1S5 
186 
137 
136 
139 
190 
191 
192 
193 
194 

196 
197 
193 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 



TIL 
TIL 



KUNSTNEPE 
TITLEP 



OPENR.l,l."PLflDER" 
R*=CHR*<13) 
PRIHTttRjN 
F0RX=1T0N 

PR I NT " PLRDENR " . X ' PR I NT 
INPUT "KUNSTNER . T I TEL " iftt, BI 
PRINTiR,fl*;R*;B* 

NEXTX 
CLOSER 
RETURN 

REM**** *** ********** 
PEN INDUES PLADEFIL 
REM***************** 
PR I NT "3" : I NPUT " INDT . PEG ISTERNR. " ; R 
PRINT "3" ■ PRINT" INDSRET KRSSETTE" : PRINT 
OPENP* 1*0."PLRDER" 
INPUT#R,QJ*REM RNTALLET RF PLRDER 
N=VRL(Qt> 

DIM R$(N):REM TRBEL 
BIN B*<N> PEN TRBEL 
FOR >:-l TO N 
INPUTttR,RJ<:X>,B*<X) 

NEXTX 
CLOSER 
RETURN 

REM**** * ***#****«*** 
REM GEM SORTERET FIL 
REM***************** 
PRINT"3"; INPUT" INDT.FIL 
PR I NT : PR I NT " I NDSRET 
OPENRj 1*1* "PLRBER" 
R$=CHR*C13) 

PRINT'T]" ■ PRIHT"SORTERET FIL 
PRINT#R/N 
F0RX-1T0N 

PRINTttR,RJ(X>iR*;B*<X) 
NEXTX 
CLOSER 
RETURN 

REM*************** 
REN AJOURFOR PLRDE 
REM******#******## 
PR INT "73" -PRINT 
INPUT" INDT . PLADENS NR.", 11 
IFIONTHENGOTO201 
PRINT'TIrtjflMLE PLRDE 
PRINT"MINDTRST OG TRVK RET. " : PR I NT 
I NPUT " NV KUNSTNER , T I TEL " i AS < M J - B* < M > 
PRINT"«PLRBE RJOURF0RT" 
FORS=1TO400:NEXT 
RETURN 

REM***************** 
REM BRUGEP VE JLEDN I NG 
REM#*»******* ******** 

PR I NT ".T - PRINT" rGEPUGERVEJLEDNING ■' 



NR.";R 
K ASSET TE" 




:PRIHTfl*<M>.B*(M> 



• PRINT 



PR I NT " WDPRETTES EN NV PLRDE-" = PRINT 
PRINT :PRINT"PES (S) OG FOR RT FOR-" 
PRINT: PRINT "HUSK AT LAVE PL ADS TIL" 
GORES MED N. 

216 PPINT".«rWWl PVI PAR EH TRST" 

GETS* : I FSJ=" " THEN21 7 : IFSfO " " THENG0T02 1 8 
PRINT'TJUDE TONME PLRDSER LAVES" -PPINT'-pflA 
PRINT ' PR I NT "KUNSTNER* TITEL" 4 
PRINT"ONSKES PLPDE AJOURFORT' 



PRINT'TIL SKftL PROGR. STOP-' 
PRINT"SRETTE 
PRINT"EKSTRR 



TflST RUN. " 

PLftDER. DETTE" : PRINT : PRINT' 



217 
213 
219 
220 
221 
222 
223 
224 
225 
226 
227 



FOLGENDE MARDE ; 
,#" : PRINT -PRINT 

ft-KOMMRNBOEN. " 



PR INT "BRUGES 



PRINT 



PRINT "NB ! HUSK ALT ID RT GEMME" PRINT"EN RETTET PLRDE V.HJ.- 
PRINT*'AF I-KOMMANDOEN. " 
PRINT"MHWTRVK PRR EN TAST " : PR I NTFRE < 8 > 
GETK* IFK*=" " THEN224 : I FK*0 " " THENG0T0225 
PR I NT "H" 'PRINT"WpWi!IpW :OjOD FORN0JELSEB !" 
FOR X=l TO 1OO0: NEXT 
RETURN 



0 



CHALLENGE, 



Commodore 64 

MuM-uret 



Du kender situatlonen: Datoen er 
et sted i januar. Udenfor pisker 
siud og regn med den fnjnnede 
vinduesrude, Det eneste lyspunkt 
er. at du Ikke kan se uvejret. For 
det er taelgmflrkt overalt. 
Selv om du godt ved. du skal op og 
pa job. er det umuligt at presse sig 
ud af Qerene. Her er Veekkeuret. 
derkan hjaHpe dig lidt. Det har ba- 
de ur, alarm, nedKelling og metro- 
noml 

Qle Sunksen 




0 PErl 

1 RE" 

2 REM 

3 REM 

4 REM 



554 



nuLTI-'JP 
CLZ E IRK E DAL 
PQfiGEPUEJ 851 
5753 PI EE 



• 4 * 



10 



15 
20 

30 



0 



PRINT'CCLRViPOXE 532BQ.5 
:FOR T-S4272 TO 54295: POKE T. 
: NEXT 

POKE 5S579. 255: POKE S6577.0 
PRINT"CCRSR NED3.CRSR HOJREIO^MUL 
TI 5T0P-UR." 

PRINT " oooooooooooooo 



40 
SO 

E0 



BO 
50 
21 
53 



PRINT " 
PR I NT " 
PRINT" 
R 

PRINT" 

NOH 

PRINT" 

PRINT" 
E URET 
GET AS 
IF AS- 
!F AS- 
: REM 



fCPSR NED2,CR5RH0JRE2;'rlENU" 
CCRSP K0JRE2:- 

•XRSR NED3.CPSR H0JPE2nT!rlE 

(RUS QN?FI " 
(CRSP NED.CRSR HCJRE2M1ETR0 

CPUS QNJF3" 
(CR5R NED.CRSR K0JRE2>UR 

' CR.U5 0N)FS M 
CCRSR NED.CRSR K0JRE2?STILL 
CPUS 0NJF7" 

"<F15 "THEM 100 :PEI1 TIMER 
"CF3>"THEN 200 
nETRDNOn 



m 



iCHflLLENGEi 



94 IF AS-"CF5V'THEN 300 : REri UR 
35 IF AS-"CF7"J "THEN 400 

: REM ST I LLE UR 
96 IF STS-TIS THEN 500 
3-* IF UALCCTS^-UAUTISJTHEN 500 

99 GOTO 91 

100 PRINT"CCLR.CRSR NED3 , 
CRSR HOJRElQjTIMER ■ 

101 PR!NT"CCRSR H0JRE10> 

102 PR I NT "<: CRSR MCnc cpaf,Cfn T " 
BESTEtlT TWJ CPUS ON) 1" 

103 PRINT" I 

104 PRINT"STDPPE 1 

105 PRIMT" I 

106 PRINT" l_EFTER BESTEMT 
T ID CRUS 0N)2" 

110 DET AS 

112 IF AS-" 1 "THEN 150 
114 IF AS-"2"THEN 160 
116 GOTO 110 

120 PRINT"CCLR,CR5R NE07, 

CRSR H0JRE5JHUORNAAR SKAL OER STO 
PPES?" 

122 1NPUT"(CRSR NED2.CRSR H0JRE7 J (TT 

nnssv';STs 

124 POKE 56577,255 

IF STS-TIS THEN S00 
PRINT"CHOflE,CRSR NED19. SPACEJHENU 

TRYK rtELLENRUnSTASTEN" 
GET BS:IF BS-" "THEN GOTO 10 
GOTO 126 

PRINT"CCLR,CRSR NED3, 
CRSR H0JRE53HUOR LANG T ID?" 
162 INPUT"CCR5R NED2 , CRSR H0JRE7KTT 

nriSS)";LAS 
164 THS-TIS 

CTS-STRSCUALCTHSJ*UALCLAS3) 
POKE 56577,255 

IF UALCCTS>-UfiLCTIS>THEN 500 
PR I NT " ( HOHE , CRSR NED19 , SPACE >t1ENU 

TRYK nELLEHRUnSTASTEN" 
GET BS:IF SS-" "THEN GOTO 10 
GOTO 168 

PR!MT"<CLR,CRSR NED3 , 
CRSR H0JREB>nETRONOrt"' 
205 PRINT'^CRSR HOJREB^ 
210 PRINT"CCRSR NED3.CRSR H0JRE2 > I ND 

TAST TAKTSLAG PR. 
215 INPUTVCR5R NEDB 
222 PA-CI/KA>*55000 
230 PRINT"CH0riE,CR5R NED19, 
CRSR HOJRE, SPACE >(1ENU 
: TRYK HELLEnRUHSTASTEN- 
FOR T-54272 TO S4295:P0KE T,0 
NEXT 

FOR T-l TO PA:NEXT:POKE 54296,15 
GET AS: IF AS-" "THEN 10 
FOR T-l TO PA:NEXT:POKE 54296,0 
GET AS; IF AS- " "THEN 10 
GOTO 290 

PRINT"<CLR.CRSR NED3, 



126 
12B 

130 
132 
163 



16S 
167 
168 

170 

I 

172' 

174 

200 



HI NUT" 

CRSR H0JRE9:";KA 



2SB 

■ 

290 
291 
292 
293 
294 
300 



CRSR H0JRE153UR" 

301 PRINT "CCRSR H0JRE1S)— " 

302 PRINT"CCRSR NED3.5PACE9> 



304 PRINT " 
306 PRINT" 
339 PRINT" 

310 PRINT" ' • 

312 T5-LEFTS':TIS.23 :nS-niDSrTIS.3.2) 
i2S-RIGHTSCTI»,2) 



I 



si 
I I 



314 PRINT"CHOnE,CPSP NED10, 

CRSR H0JRE13j" ; TS; " "[MS;" " ; ZS 

315 IF STS-TIS THEN S0O 

316 IF UALCCTS:»-UALCTIS>THEN 500 

317 PR]NT"CHOriE ( CRSR NED19, 
CRSR H0JRE4,SPACE>nENU 

: TRYK HELLEriRUnSTASTEN" 

318 GET BS:IF BS-". "THEN GOTO 10 
320 GOTO 312 

400 FRINT"CCLR , CRSR NED3, 

CRSR H0JRE1O)SYNKRONISEPING" 
402 PRINT"CCRSR HOJRE 10 J 



405 PRINT"CCRSR NEDBJSTIL NU URET EF 

TER ET DER GAAP RIGTIGT." 
410 INPUT"CCR5R NED2.CRSR H0JRE9) CTT 

nnssj ";TIS 
420 PRIMT" r HOHE, CRSR ME07, 

CRSR HOJRE83URET ER NU I GANG . " 
425 PRINT"CH0I1E,CR5R NED19. SPACE>MENU 

: TRYK MELLEflRUnSTASTEN" 
430 FOR T-l TO 300: NEXT 

;FOR T-S4272 TO 54295: POKE T,0 

: NEXT: POKE 54296,15 
440 FRINT"CCRSR OP , CRSR H0JRE6 , 

SPACE22 J " 

4S0 FOR T-l TO 300;NEXT; POKE 54296,0 
460 GET BS:IF BS- " "THEN GOTO 10 
470 GOTO 425 

500 S-54272:PR1NT"CCLR,CRSR NED11, 
CRSR H0JRE7 jTIDEN ER UDLOEET" 
:POKE 56577,0 
SOS FOR L-0 TO 24:P0KE S*L,0:NEXT 
510 POKE 5*5,2S:P0KE 5*15,10 
515 POKE S-24,15:P0KE S-4,21 
520 FOR T-20 TO 255:P0KE S-l.T 
525 FOR N-l TO 7 : NEXT: NEXT 
S27 PRINT"CCLR,CRSR NED 1 1 , 

CRSR H0JRE75TIDEN ER UDL0BET" 
530 REfl 

540 FOR T-l TO 1000: NEXT 
545 PRlNT"CHOnE.CRSR NED11, 
CRSR HOJREJSTOP B MENU 
: TRYK MELLEnPUIISTASTEN" 
550 GET AS.IF AS-" "THEN 10 
SEO GOTO SOS 





GAMES 



Lambda /ZX8 I 

Mastermind 

I alle mastermind til ZX-81 er der 
hidtil ikke set en variation, hvor 
det er tilladt at bruge A ens tal. 
Dette er til gengsld en 1 00% kor- 
rekt udgave. der tolger de Interna- 
tionale regler. 

I linie 47 sa?ttes den rigtige kode 




11 REM O. STEEN HANSEN 

12 PRINT TAB 9; "f 



13 PRINT TAB 9 
TERMIND" ; TRB 22; 
14- PRINT TRB 9; 



4 



Mi 



; TRB 11; "MRS 



M 



15 RAND 

IB LET R=INT 

17 LET B = INT 

18 LET C-INT 

19 LET INT 

20 PRINT 

21 PRINT RT 3,0; 



( RND *6 ) 
( RND *6) 
(RND*6i 
(RND»6) 



"5KRIV FIRE TP 
L MELLEM O OG 5 . DET 3AMME TRL 

KflN GODT FOREKOHMEFLERE GRNGE . 
22 PRINT RT 7 , 16 ; " KODETAL R 

F" 

2 *\ p R I NT 

24 LET fl*=STRt R+STR* B+STR* C 
»-STR* D 

25 FOR X = l TO 10 

26 PRINT X; " - - - i 

27 LET R»B 

28 LET F«0 

29 INPUT B% 

30 IF LEN B$<>4 THEN GOTO 29 

31 PRINT TRB 16;B*(1);TAB IS; B 
JTRB 20;B*(3);TAB 22; B* (4.J ; 

32 GOSUB 47 

33 FOR 2=1 TO 4 

34 IF B$(Z TO Z)=C*(Z TO 2) TH 

EN GOSUB 49 

35 NEXT Z 



36 FOR 0=1 TO 4 

37 FOR 2=1 TO 4 

36 IF B$(Q TO Q)=C*(Z TO 2) RN 
NOT C*tZ TO 2) RND NOT B* I 

Qt ="■-' THEN GOSUB 53 
NEXT Z 
NEXT O 

PRINT TAB 25;R;TRB 29;F 
IF R=4 THEN PRINT TAB 11; "B 



TO 
39 
40 
41 
42 



43 IF R- 

4-4 NEXT 

45 IF R< 
R" ; TAB 16; 

(3) ; " "; A* 14.1 

46 GOTO 57 
4-7 LET C$=A* 
43 RETURN 

49 LET Cf IZ 

50 LET B«(Z 

51 LET R«R+1 

52 RETURN 

53 LET Cf (Z 

54 LET B*(Q 

55 LET F=F+1 

56 RETURN 

57 PRINT AT 



4< THEN GOTO 57 
X 

4 THEN PRINT 
A$ (1) ; " '■; A» 



"KDDEN 

t2) ; " " 



UA 
A* 



TO 
TO 



TO 
TO 



ZJ 



I 



■ 1 1 



z) 



21,0; "ET SPIL MERE 



( JxN) 
53 
59 
60 
61 



si 



6 a 

63 



INPUT 
CLS 

IF 5*=" 

STOP _ 
SAUE "MASTERMINSJ" 

RUN 



THEN RUN 



CHALLENGE. 



Ants trad 



Afbetaiing 6 1 28 



Betaler du af p3 din Arnstrad 
6128. eller noget andet. kan du 
taste dette selvinstRjerende pro- 
gram ind og f3 en masse fedt at vi- 
de. I programmet er afbetalings- 
renten sat til 2.75 % pr. mdned, 
men dette kan du amdre frit i linie 
510. 

Alle inputkommandoer er sikret 
mod bogstaver og 'tomme* in- 
puts, dog ikke i ilnie 480. 
Ved "Interne oplysninger' er ad- 
gangsordet TEST85". Dette kan 
aendres I linie 1740. Farste gang, 
man taster et forfeit password, 
retumeres til menuen, men anden 
gang smides man ud af program- 
met. Dette kan ligeledes sndres I 
linie 1740. hvordetbestemmesaf 
CALL ft BB 14. 

Carsten Leth Andersen 



J 30 NODE 2| 
EN 1 1 PAPER 



INK O, Oi INK 1 




MO 
150 

KM' 

170 



DEF FNAU>*R0UNDO(,2> 
ON ERROR GOTO 100 
SYMBOL AFTER 123 

SYMBOL 123, 1 26, 21 6, 2 1 6 t 234 , 2 1 6 t 2 1 6, 222i * 



180 SYMBOL 125,60,36, 126, 102, 126, 102, 102t 
190 REM 

230 LOCATE 34,1: PRINT "AFBETALING 2" 
240 PRINT STRING* ( 79, CHR* (95) J 

250 LOCATE 2B,8tPRINT"Fli QENERELLE BETINGElBER 



- 

270 
280 
290 
EN 

300 
310 
GHTj 

320 
330 
340 
350 
WO 
370 
40O 



LOCATE 

LOCATE 

LOCATE 

LOCATE 

NAMED" 
LOCATE 

LOCATE 



28, 10sPRINT"F2i NYE VILKAR" 
28. 12tPRINT"F3i SF-ECIELLE FORHOLD" 
28, 14iPRlNT"F4i INTERNE 0PLY5NINGER" 
2B, 16iPRINT"FSi RENTEN ( I KR. ) FOR 



l f 23l PRINT STRJNG*<79,CMR*(95)> 
I t 24tPRlNT CHR% i24) " C0PYR1 
CARSTEN ANDERSEN ft F. LERBaK 
"CHR* (241 
PRINT CHR*<7> 

0*=INKEY»iIF Qt-*-" THEN 330 
Q«VAMGW1 

ON 0 GOSUB 370, /60, 1040 t 1630,2120 
IF 0<1 OR Q>5 THEN 330 ELSE 190 
REM 

CLStLOCAlE 30. It PR1NT"GENERELLE BE 1 INGELSE 



R"iPRlNT SrftING»(79,CHR*(95>) 



410 
, « 

420 
430 
t IF 
440 

450 
DERi 



l,3t 



1NPUTMNDTA8T A* TUELLE KOBBPRIS 



LOCATE 
P* 

P-VALiP»i I IF p<»0 THEN 410 

LOCATE 1,7: INPUT " INDTAST UDBETAL ING: %UDt 
W2-1 AND ROO THEN 900 
UD-VAL<UD»>: IF UD<-0 THEN 430 

LOCATE l,9t INPUT M INDTAST AFDPAGST ID 1 rt*NE 
*,N* 



(MO,*R) i 



530 
540 
C30 



Y 

460 N»VAL(N*)t IF N<»0 THEN 45G 
470 IF N<1 THEN R-Pi GOTO 640 
480 LOCATE 1^ 111 INPUT" INDTAST K0B9DAT0 
",MD*,A* 

490 MD-VAL<MD*)iA-VAL(A»UlF MD< -O OR A<»0 THEN 
480 

500 IF W« J THEN 520 
510 I-2.75:W=0tWl»0 
520 1-1/ 100 

LOCATE 1,13!PRINT STRING* 432, CHR* (95) > 

R" <P* 11(1+1) *W / ( ( U + *N)-U 
LOCATE 1, 16iPRINT"AFDRAG PR, MaNEDi "FNA <R) i 
RE~<N*R) -P 

560 LOCATE 1 , 18i PRINT "FRADRAGSBERETT IGEDE RENTE 
R lALTt **FNA (RE* 

570 LOCATE 1 , 20i PRINT "SAMLET KOBSPRISi "FNACRE+P 

) 

580 Rl-PiR3-l(IF FL»1 THEN RETURN 
590 GOSUB 650 
600 PRINT CHRS17) 

610 LOCATE 3I t 24iPRINT CHR*<24>" KLAR - TRYK EN 

FAS? ># CHR*(24> 
620 CALL tvBBIB 
630 RETURN 

640 PRINT i PR 1 NT " K ON T AN TPR I S t "Pi RETURN 

650 Al«0tNl-GtY»7 

660 FOft G*I TO N 

670 ll*Il+fRl«I) 

680 R!=4RltI>*Rl-RiNl-Ni+l 

690 IF N1«412*R3*-MD THEN GOSUB 730 

700 IF N1=N THEN GOSUB 730 

710 NEXT 

720 G-Oi RETURN 

LOCATE 50 f 5iPRlNT CHR*<24>" RENTER* "CHR»i2 



730 
4> 

710 LOCAIE 50, Y s PR 1 NT " RENTE I"A+AI 
J : Al-A!+liR3-R3+l» 1 l»Oi Y-Y+2 
750 RETURN 



( KR } i " FNA i I 1 



iCHRLLENGEi 



/eo REM 

790 CLS:W*ltW2-liL0CATE 34, 1 i PR 1 NT "NYE VILKaR" 
tMO PR t$St SrRING*(79,CHR*<95>) 

91U i.OCATE 1,5iPRINT CHR*(24>" NVE VILKARi "CHR* 
(24) 

820 LOCATE 1 , 7i INPUT" I NOT AST RENTE i 
830 I-VALU*): IF U»0 THEN 820 

840 LOCATE 1 , 9i INPUT* INOTAST BELOb PR. MANEDi " 
; fM 

050 RoVAL<R*>iIF ROO THEN 640 

G*0 LOCATE Mil INPUT** INDTAST AKTUELLE KOBSPRIS 
I M ( P* 

870 P*VAL(P*):IF POO THEN B*0 

680 LOCATE | a 13i iNPUT"INDTA5T UDBETALINGi " * UD* 

U90 IF U0*="" THEN BSO 

900 UD»VAL(UD*>i IF UD<0 THEN 880 

910 P-P-UD 

920 Y-P 

930 Y-Y+(Y*U/100))iY=Y-R:Y2«Y2+l 
940 IF Y<R THEN 96u 
950 SOTO 930 

960 LOCATE l,15iPRINT STRING* ( 32, CHR* (951 ) 
970 LOCATE l,16iPRINT Y2"MaNEDEft AF "R"Kft . " 
980 LOCATE 2,20*PRIWT"1 MaNED AF " FNA ( Y+ ( Y * ( I / 1 0 
0> ) ) "KR. " 

990 Y»Oi Y2»0i I=0lUD=0r W-0 
1000 PRINT CHfi*(7) 

I01O LOCATE 31,24iPRlNT CHR* C 24) » KLAR - TRYK 
EN TAST "CHR*<24> 
1020 CALL &<B&18 
1030 RETURN 
1040 REM 

1050 REM •**» SPEC I ELL E FORHOLO MM 
106O REM 

1070 CLSiLOCATE 31 , 1 1 PRINT "SPECIELLE FORHOLO* 1 
1080 PRINT STRING*(79,CHR*<95>) 

1090 LOCATE 1 , Si INPUT " 1 NDTAST ANTAL HaNEDER SID 
EN KOBi ", MD* 

1100 MD-VAL (MD*) i IF MD<-0 THEN 1090 
illO LOCATE 1,7; INPUT " INOTAST AFDRAGS T I DEN ( I 
MDR. ) i N* 

1120 N=VAL(N*):IF Nv-0 THEN 1110 

1130 LOCATE 1 , 9t INPU7 " I NDTAST KOBSPRIS - UDBETA 
LINGf H ,P* 

1140 R1WAL <P*> iP»VAL IP*) i IF P<=0 THEN 1130 

1150 LOCATE l,I0iPRINT STRING* (35, CHR* (95) ) 

1160 LOCATE I , 12: PRINT "NORMAL RENTE {3 /Hit* 

1170 LOCATE 1,13<PRJNT STRING* (35, CHR* (95) > 

1180 Q*«INKEY*tlF O*-"" TtCN 1180 

1190 IF LOWER* (Q*)-"j» THEN I-2.75iG0T0 1240 

1200 IF LUWER*<0*)O"n" THEN 1180 

1210 LOCATE l,12rPftlNT SPACE*(22) 

1220 LOCATE 1 , 12t INPUT* 1 1 NDTAST RENTE i " , 1 « 

1230 r»VAL(I*>iIF I<0 THEN 1-2.75 

1240 I»I/100i FL-1 

1250 GOSUB 540 

1260 PR I NT i PR I NT " I NDBE TALT I ALTi "FNA (MDiR) 

1270 Il«Oi FOR G-i TO MDs 1 1*1 1 ♦ (Rl * I ) I Rl - (Rl • I ) 

+RI -Ri NEXT 

1280 LOCATE 1 , 24i PRINT"R£NTEUDGIFT TIL DATO: M FN 
A(I1) |R1«F 

1290 LOCATE 45,5iPRlNT CHR* (24 > "TILBAGEKOB (J/N 
) i"CHft*(24) 

1300 0*»lNKEY*iIF 0*- MM THEN 1300 

1310 IF LOWER*(0*)-"J" THEN 1330 

1320 IF LOWER*<0*X> u n H THEN 1300 ELSE 1510 

1330 LOCATE 45,7iPRINT CHR* < 24 > "NORMALE BE TINGE 

LSER (J/NJ t "CHR* (24) 

134G 0»=»INKEY*i IF .1 THEN 1340 

1350 IF LOWER*(U*>-"j" THEN 14IO 
1360 IF LOWER* (Q*) < Vn" THEN 1340 
1370 LOCATE 45,7*PRINT SPACE* { 26) 
1380 LOCATE 45, 7s INPUT" I NDTAST TILBAGEKOBSPftlSi 
%TP* 

1390 TP-VALtTP*);IF TP<-0 THEN 1380 
1400 PT-TP<GOTO 1420 

1410 PT=Pr IF A*«"j" THEN PT«PT- ( (PTIO. 02) 1MD) 
1420 PT*PT-<PT*O.22)iL0CATE 45 , 9 1 PR I NT * T I LBUD t " 

FNA(PT) 

1430 LOCATE 45, 1 1 rPRINT*ACC£PTERES TILBUDET AFR 
EGNES MED i " 

1440 IF MD^N THEN AF»PTi GOTO 1470 



1450 SK-P-(RtHO> 
1460 AF-PT-U-SK 

1470 IF SGN 4 AF ) <0 THEN F*-«TIL 08 FRA KUNDEN " 
1480 IF SGNCAF>>0 THEN F*-"SOM VI BETALER KUNDE 

N " 

1490 LOCATE 45,13iPRINT CHR* (24) ABS (FNA (AF > >F*i 

CHR* i 24 > 

1500 GOTO 1600 

1510 LOCATE 45,7iPRINT CHR* < 24 I "FaRDIGBETALING 

<D.U) iJ/H) i "CHR* C 24) 

1520 0*-INKEY*iIF O*-"" THEN 1520 

1530 IF LOWER* (Q*)»"j" THEN 1550 

1540 IF LOWER* (0*>» M n H THEN 1600 ELSE 1520 

155U LOCATE 45, 9i PRINT*5AML£DE kOBSPRISi "FNA<N* 

Hi 

1560 LOCATE 4r/, 1 1 > PR I NT "KUNDEN HAR BETALTi"FNA( 
MD*IV) :SN=N#R-P 

1570 LOCATE 45, 1 3iPRINT"SAMLEDE RENTE i "FNA (SN) 
158U LOCATE 45, 15: PRINT **KUNDEN SKAL BE TALEi "FNA 
(P+l l-(MDIR)) 
1590 PRINT CHR*(7> 

1600 LOCATE 3 I, 24 t PR I NT CHR* (24)" KLAR - TRYK E 
N TAST H CHR*424> 
1610 CALL &BB18 
1620 RETURN 
1630 REM 

164u REM *«M INTERNE 0PLYSNIN8ER «1S« 
1650 REM 

164*0 CLSiLOCATE 30, 1 * PRINT" INTERNE OPLYSNINGER" 

1670 PRINT STRING*(79,CHR*(95) ) 

1680 LOCATE 1 , 5i PRINT"PASSWORDi "; 

1690 FOR p«* 1 TO 6 

1700 p**-IN»;EY*ip5Mftap 5w »* pv t 

1710 IF p»*-"" THEN 1700 

1720 PRINT CHft*<42>( 

1730 NEXT 

1740 IF UPPER* (PSW*) < >"TESTB5" THEN PR I NT i PR I NT 
:PRINT"PASSWORD AFVIST ll4 iF0R A«l TO 2000iNEXT»C 
ALL SiBB14iR£TURN 

1750 CLSiLOCATE 30, 1 i PRINT" INTERNE OPLYSNINGER" 
1760 PRINT STRING* (79, CHR* (95) ) 
1770 CURSOR O, 1 

1780 LOCATE l,5iPRlNT SPACE*(20) 

1790 LOCATE 1,7* PR I NT " BEREGN UDSALG9PR1S NaRj "i 

X=0 

IBOO LOCATE 30,7:PRINT-1) ET FAST BELOB SKAL H 
JEM" 

1810 LOCATE 30,9ipRINT"2) INDKOBSPRIS + OMKOST 
NINGER ♦ AVAMCE" 

1B2U LOCATE 34, 1 1 :PRINT "ER KENDTE FAKTOREft" 
1830 LOCATE 30, 13:PRINT H 3) EKFEKTIVE RENTE ONS 
KES BEREGNET *' 

1840 LUCATE 30, 15; PRINT M 4 ) TILBAGE TIL HOVEDME 

NU" 

1850 LOCATE 34,17iPRINT CHR*(24)" I NDTAST NR. " 
CHR* < 24) 

1S6U LOCATE l,23iPRINT STRING* (79, CHR* (95) ) 
1870 LOCATE l,24iPRINT CHR*(24>", COPYR 
I GHT i CARSTEN ANDERSEN * F . LERBaK 

1905 "CHR* (24) 

IBtiO PRINT CHR*(7> 
1890 0*-INKEY*iO»VAL(0») 
1900 IF 0-4 THEN RETURN 
1910 ON O GOSUB 1930,2100,2290 
1920 IF Otl OR 0>3 THEN 1890 ELSE 1750 
1930 REM 

1940 REM »l»t FAST BELOB SKAL HJEM *««• 
1950 REM 

I960 CLSiLOCATE 31 , 1 i PR INT "FAST BELOB SKAL HJEM 



1970 
19Q0 
* 

1990 
2000 
* 

2010 
2O20 
OM* 

2030 
2G40 

205O 



PRINT STR1NG*C79,CHR*(95>> 

LOCATE l,7i INPUT" INOTAST MIN. AVANCEj 

MA-VAL (MA*> t IF MA<-0 THEN 1980 
LOCATE l,9t INPUT "INOTAST INDKOBSPRIS* 



MA 



IP 



IP-VAL ( IP*) i IF IP<-0 THEN 
LOCATE 1 , 1 1 1 I NPUT " I NDTAS T 



2O00 

OMh USTNINGER: 



OM^VAL (Ofl*) ; IF 0M<*0 THEN 202O 

UP*( (MA+IP+ON) . . . - - HA*lP+OM> 

LOCATE 45.7iPRINT CHR* (24) "UDSALGSPRISl "FN 



CHALLENGE 



CHR« C24>" KLAR - TRYK E 



M.M, <■*< 



'\0 



AiUPiiCHMt24> 
?0A0 PRINT CHR* (7) 
2O70 LOCATE 31 »24i PRINT 
N TAST "CHR* 124) 
2000 CALL 't'tM- 
2090 RETURN 
2IOO REM 

2110 REM INDKOBSPRIB 
2120 REM 

2130 CLSiLOCATE 23 t 1 1 PRINT" INDKOBSPRIS ♦ OMKOST 
NINGEfl * AVANCE" 

2140 PRINT STRING*<79 t CHf»l«)l 
2130 LOCATE 1 , 7i INPUT" INDT AST UDBALGSPRlSi 
2160 U-VAL<U»>:IF LK»0 THEN 2150 
2170 LOCATE 1 , 9i INPUT" INOTAST OMKOSTNINGER: 

Nt 

2100 Ofl-VAL ( Oh* ) * IF OMOO THEN 2170 

2190 LOCATE 1 , 1 1 1 I NPUT ■ I NDTAST %-AVANCEi ",V1» 

2200 Vl-VAL(Vlf) iVI-VI/IOOi IF VK-0 THEN 2190 

2210 V2=U-(Ut0.22) lAV-V^IVli V3=V2~AV 

2X20 LOCATE I,13:PRINT STRING* <30, CHR» <93> > 

2230 LOCATE l,16iPRlNr CHR* t24> -0RUTTOA VANCE I M F 

NA(AV) 

2240 LUCATE 1 , J8: PR INT"PRIST ILBUDi 14 V3-0Hi CHR* (2 

4) 

22SU PRINT CHM<7) 

2260 LOCATE 31 ? 24iPRINT CHR*<24> M KLAR - TRYK E 
N TAST "CHR*(24> 
2270 CALL a-BBlS 
22QO RETURN 

2290 REM 

J30O REM EFFEKT1VE RENTE «*M 

2310 REM 

2320 CLSiLOCATE 35, I i PR I NT "EFFECTIVE RENTE" 
2330 PRINT 9TRINl3*l79 f CHR*<95> ) 

2340 LUCATE 1 ,5( INPUT" INDTA3T RENTEN PR. MDR. t 



23SO I-VAU*I#MIF I<»0 THEN 2340 

2360 IA»( C 1X1/ 100) ) ' 12) i I B» ( I A- 1 ) I lOO 

2370 LOCATE l»7iPRINT CHR* 424 > "EFFEKT1 VE RENTE 

PRO ANNGi "FNA* IB) 

23SO PRINT CHR*(7) 

2390 LOCATE 31 # 24iPftlNT " KLAR * TRYK EN TAST " 

CHR* (24) 

2400 CALL CBB1B 

2410 RETURN 

2420 REM 

2430 REM UU RENTEN FOR EN Ma NED ftttt 
2440 REM 

2450 CLSiLOCATE 32, 1 I PRINT"RENTEN FOR EN MaNED" 
2460 PRINT STRING* (79, CHR* <93> > 

2470 LOCATE 1,5x1 NPUT " I NDTAST MaNED (l~I2>t ",11 
D* 

2480 MD=VAL<MD*)iIF HEK-0 THEN 2470 
2490 LOCATE 1 , Vi INPUT " I NOT AST PRISt ",P* 
2500 P-VAL<P*)(IF P<*0 THEN 2490 

2510 LOCATE I » 9t INPUT" I NDTAST AFDRAG PR, MDR. i 

*.R* 

2520 R«VAL(R*>iIF R<=0 THEN 2510 

2530 LOCATE 1 , 1 1 1 INPUT** 1NDTAST RENTE- ",1* 

2540 l-VALU«)tIF K-0 THEN 2530 

25SO Y-P 

2560 Y3=Yf I I/lOO) i t Y+Y3I-RJ Y2-Y2+1 

25/0 IF Y2=M0 THEN 2580 ELSE 2560 

2580 LOCATE l,13iPRINT STRING* (30, CHR* <93) ) 

2590 LOCATE l f 16tPRINT CHR* < 24 ) "RENTEN UDGORi "F 

NA<V3>"KR. " 

2600 PRINT CHR*C7> 

2610 LOCATE 33,24:PRINT" KLAR - TRYK EN TAST "C 
HR*(24> 

2620 CALL &BB19 
2630 RETURN 



Sp ectr um 



Program 
presseren 



Her er"Compactor'l Programmet. 
der presser programmer som ci- 
tronpresseren presser de sma sure 
gule. 'Compactor' er en maskin- 
koderutine til dem. der geme vil 
ha' BASIC-programmernetilatfyl- 
de mlndre i en Spectrum. 
Ideen i programmet er. at f.eks. 
1564.54 aendres til VAL 
" 1 564.54'. hvilket sparer 3 bytes i 
hukommelsen. Men alt det prakti- 
ske ordner programmet autom- 
atisk for dig. hvis du taster det ind. 
korer det skriver startlinlenum- 
meret og starter kassettebandet 
med det program, du vil 'presse'. 
Hele rutinen er 122 bytes lang og 
start es med RAND USR start. 

Peter Lumbye 




1& ^NPUT "S?*fl:"j*t*ft 
20 FOR f«»l*rt TO stari+121 
EhD a: POKE (.»; LET IQl-lOt* 

NE *« IF l0tO11606 THEN PRINT 
rear": BEEP 1,0: STOP . ^ 

50 INPUT "N*a* IF LEN 
>10 OR LEN *ft<l THEN 00 TO 5* 

60 SAVE »»COOE Stiri,122__ 
1000 DflTfi 42,83. 92. 43. 337,75, 
92 , 35 , 167 , 237 ,66,9, 230 , 35 , 3S , 



• : 
"E 
a* 



76 , 
78, 



35,70, 
,24 ,23 
,11,11 

43, 126 



229,35, 
1 ,254,1 
, 197 , 12 
,254,47 
.254,196,40,4 
119,43,43,24. 

5 ,35, 35 
RTfi 64, 
,92, 167 
,42,75, 
9,92,43 
4,155,0 



, 34 ,22 
1010 0 
,42,89 
37, 176 
2,42,6 
, 193,2 



126,25* 
4,32,24 
fi), 16.27 
tit* If j 
,=54,56 
231,35, 
54,34, 



, 13.32.3,209 
3,209,213,11 
, 121, 16,229, 
254,46,66,15 
,46,7.35,35, 
54,176,35,54 
35 

35,35,35,229 
68,77,225,2 



93.213 . 

,237,82 ,«w, . . , — 
92 ,43,43,43,34,75 .9 
.43, 43, 34, 89. 92, 235 

,0,0 



CI 6/ PLUS 4 



Mission Amazonas 



Du er udvalgt til en rednmgsmls- 
sion pa floden Amazonas, som be- 
vogtes af Oendtlige guerillasolda- 
ter I kanonbSde. Men ikke nok 
med at der bliver skudt efter dig. 
du skal ogsS passe p5 mineme. og 
sejle under broerne uden at smad- 
re ind r bropiileme. Red de strarv 
dede videnskabsmaend ved at Iseg- 
ge til bAdebroerne. Tank op ved at 
samie de bid Denzintanke op. Du 
kan va?Ige imellern 65536 versio- 



ner af floden, eiler en Hlteldig. 
Der kan bide bruges joystick og 
tastatur. tasteme en 
A og Z - motorbSdens hastighed 
<og< - styr til venstre/hajre 
skyd med meliemmmstangenten. 
NB: Det er vigtigt at indtaste oir- 
ser-tegnene (anglvet i parentes. 
eks» (UP) og meliemrummene 
pr*ecist. da skfermen ellere kom- 
mer til at se ret speciel ud. 




0 REM »M MISSIOH WW20NAS C16 

1 COUM P liC0L0R1.7,4iCOL0R4.3 a 3 

2 PRINT" (CLft) (DOWN) (DOWN) (DOWN) " :SPC(6) ; "TRYK TRE OAKGE P 
kk (WHT) RfnVRN(BLK) " 

3 PRINT"(DOWN, (DOWNMDOWN)T D000 D7FF 3800" ; CHRi ( 13) F - (DO 
Wi) X" i CHPs ( 13) ■ " (DOWN} RUN10" ; ■ (UP) (UP) (UP) (UP) (UP) (UP) (UP 
) (UP) (UP) :I*3M!T0R 

10 GOSUB2Q00:DIM ASUS) :DiMD*(1020> 
15 GOSUB9000 
20 FORN-1T013 

30 AtlN)-LEFT*l"(RVS) " .N+l I * ■ (OFF)fl M 

iRvsr *LErr*r mmq 

40 NEXT 

30 FORN-0TO&99.N£XTiGOTOl300 

100 5CNCLR 

101 COLORO.l 

110 F0RN-1TO24 iPRIffT* ( RVSl 
*j>NEXT 

113 PRINT" 
ME) " i [POKE4071.16O 



fBLXJ 



lorri (ho 



120 PRINT" (DOWN) (DOWN) (DOWNl iDOWN) (DOVSJ (DOWNl iBRN) (RVS) 
SPEED i (DOWNl (DOWN) (DOWN) (LEFT] (LETT) (LEFT J CLEFT) (LEFT) ( 
LEFT) (LEFT) (LEFT J (BLK) lOO-(LEFT) (LEFT) (LEFT) (DOWN) (DOWNl 7 
5- (LEFT) (LEFT) (LEFT) (DOWN) (DOVN)30-(LEFT> ( LEFT) (LEFT) (DOW 
N) (DOWN) 23- (LEFT) (LEFT) (DOWN) (DOWN) O-(YEL) 

121 PRINT**(DOWN) (DOWN) (DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT 
) (LEFT) (BRN) (HONE) (DOWN) (DOWN) (BLK) POINT: "jSP 
C(2ft) j k -iHIGH(BRM)&ENZINi **tSPC(26) j H "j 

122 PRirTT"(DOWN) (DOWN) (DOWN) (LEFT) (LEFT) (LEFT) (LEFT) (LEFT 
} REDD. (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DO 
WN) (DOWN) (DOWN) (DOWN) I DOWN) (DOWN* (LEFT) (LEFT) (LEFT) (LEFT) 
(LEFT) -j 

123 PRINT 1 ' (HOKE) (DOWN) (DOWN) (BLK) " i SPC( 27) 

:HJV 

12* PRINT"(HO«El <LBLU> MISSION AMAZ0NA5 
67 (OFF) "j 

125 PRINT" f RVS) "; i G0SUB1 000 : PRINT' (CLR) ** ; 
127 FORN-2 1 77TO2202 i PCKEN , 68 i NEXTN 

130 FORN-210T0233 i POKE:040.N„U6:POKEN0072 t 193 ! pOKEN- 
0. 1 le x POKEN+ 3732 . 1 93 : NEXT 

133 PQK£2237.116:POKE32ei.213:POKE22eZ.ll6:POKE33Q6.201iP 



iPRJN7JSING H 94 
(C) TAffT 19 



>272 



a 



GAMES 



0KE2937 . 1 16 ; POCE396 1 . 202 

138 POKE2962.116:POKE3986.203tFORN»249TQe49STEP40;PC*a:H*2 
048 .116; PCftEN* 3072 p 194 

139 P0KEN*2073.U6:P0KENO097,194;NEXT 
180 GETZS ; IFZ3< >""THEH180 

190 COLORO^^COLOftl^.SiTIS^OOOOOO^Bfc-RNDl-G) iTTlAPllO 
0 

200 R*-R**RNDU) '3-1 

205 lF»<10RRft>13THENf»-Rl* 

220 PCKEEIV32 

221 PrirNT CHR*(27> ; "W(HOME) " . A1(R*> ; t PC6CE3346 . 194 1 POKE232 
2. 116 

222 IFPEEK(E+40)-32TKENPOKEE-ff84. U4;POKEE*40.88 

224 P-PEEX(E> ! irPEDC(E)-32THEKPOKEE i 63iPC«EE-i024 J li£LSE3 

00 

228 IFZ*-FSTHEH700 
230 1F2»-USTHEHIFS>OTHI:N410 
233 1F2I-DITOENIFS<90TH£H400 
233 FORN-OTOSiHEXT 

M0 Rl%-R»iEl*-£iT»T*ljF-F-f90-BJ/19-4 
267 IFF<-OTOEN430 

288 FOK£2l77*(F/i00) . 0 i 1FMITJ O0THEN300 
290 0OT0200 

300 lFP-0QTKENr0RN-lTOS'3*20;HEXT;GOTO221 
303 IFPOB4THEN320 

308 VOL4iPOKE2177+(F/100) .68;FORN-lTO400STEP30,F*F*20 
310 PCKE2177*(F/100K68:30UHD2.N.2 
313 KErTNiF*F*30r0OTO285 
320 IFPEEKfE)-102THEH90O 

322 COLORO . 6 i FORN-0TO40 1 NEXT i 5OUND3.7O0 . 400 : COLORO .7.4 
325 FORN-6T005TEP-liVOLN 

330 FORK-81T0120iPCKEE,KiPC*CEE-l024.K:NEXTO.H 
390 GOTD1100 

400 S-3*7:VOL3.SOUNDl.400-S. liPCKE2693*-(40" INT( 190-81/10) 
I .0 0OTO283 

410 3-3-7. VOU,SOUNDK40O-S.l;POKE2733-(4O-rHT< (90-SJ/10) 
i . 120:GOTO285 

450 PRINT"(D0WN1 (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (ROHT) <GR*1 
> OU LOB TOR FOR BENZIH " 

433 fORH-900T0300STEP-4:3OU?#Di i W ( 2;S0UKD2 t H+2 i 2!NErr 

460 GOTOU00 

300 IFD%(T1 >9THEN800 

503 OK D*(T) GOTO 510. 520 . 330-340. 360. 1100 
505 GOT0240 

510 B*-R*tRNDU> "50324 :POK£BV 83: P0KE8*-1024 .O.GOTO200 
520 PftINT"(HOtt)".SPC(R*);"(YEL) <OFF)rTiTiT»"U(RV3) (GRN) ■ 
; tGOT0200 

330 B*-R**RND(1) -3*3324 t POKES*. 84 iPOKEBfc-1024, 20 *GOTO200 
540 B»-R**RTO( l)*4*33»iP0KEW,78iP«EBfc-1024.41 
330 IFD*<T+9)< >3TUEND*(T+9)-B%O60ia0T020Q 

560 PRIHT~lHGKE> {RED) (BLKj (OFF) I " i LEFTS ("Ml III I II I III I 
I Hill I ",«*) ."(GRH) (RVS)"; *D*lT*9)-»+3325iGOTO2O0 
600 IPP£EK(E-1)< >71THEW200 
605 VOLS 

610 Y%-360«3324:H*-1 

630 POICr*V204*K*:30UHD3. 600,1 

635 IF Y*-D*(T)O39THEH660 

640 FORK-0TQ30 t NEXT* 

643 PC*EW.71:«-rt*l 

650 IFK*-lTHENH*-0;00TO630 

655 H*-1;G0T063Q 

660 FORK-0TO30 : NEXT: PCKETO.71 i S*-S*+2500 1 GOSUB1000 

663 FORN*100TO2OOSTEP2O(SOUNDl.N+60O.3;SOUND2.H*398.3;FtiR 

K-0TO33 | HEXTK . N 

670 POKE3469tKfc*e0.89:POK£2443*m-e0.126irt»-M**l 
690 D*(T)-0*GOTO200 
700 V0L4 
710 Y*-E 

713 YX-Y*-40ilFPEEK(Y\K >32THEN7<0 

720 PCKEYV66iPOKEY%-1024,120 

723 50UND3.Yfc/4.3 

730 PCKEY».32i(3aT07l3 

740 O-PEEKtY*) : IFO-800HQ-64THEN713 

750 IFO<>83A«00<>7eJJOO<>7rrHEHVOLO : PC*CEYX*40.32 l GOT0285 
760 V0L7 : SOUND3 , 700 . 30 3 FORN-78T056 : POKEY* , N : POKEW-1024 . 7 
3*(RHDU>«2)'43:HEXT 
770 POKEY*. 32 

780 IFQ-78TKENS*-3**100:GOSUB1000iGOT02&3 

793 GOTO 283 

600 [FD*(T)<E-90THEH60O 

001 IFPEEK(D*(TnO78THEN200 

603 IFM(T)*E*20THEH850 

803 VOL4arRTO(l)'8>UroW(T*l)<>5THEND%(T*l)-D»(TJ*40tD* 
(T) *0iCOTO2O0 

010 Y*-D*(T> i H*-l : IFY*>ETHENH**-1 
020 YV-WH*: IFPEEK(Y*)< *32THEN320 
630 Ptt£Y*.70iPOKEY*-1024.120 

840 S01JTO3.Y*/4.3:F0RK-DT01 1 NEXT: POKEY*. 32 iGOTO820 

830 IPRNDU)'2>1THEN200 

833 YX-WIT) »H*-liIFY*>E+40TKENK%-- 1 

633 Y*-Y**H*ilFPEEK<Y*)<>32THEN870 

860 PC*EY*-1024.120iPOKEY*,70 

865 SOUND3.Y*/4,3jPOKEY*. 32:G0TO855 

870 lFPEEK(YM-aBTH£N855 

673 3OUND3.700.5(D*(T)-0:GOTO200 

900 PtiKEE,65:PC*C£E-1024.0(VOL3iSOUND3. 300.35 

910 F0RK*lTO999iNEXT 

920 GOT0285 

1000 CHARl.8.2."<BLK)";PRINTS*j 



1010 CHARl 1 10.6.-:PR!>n'CHRjf27) ; "T" ; SPC(24);"(DOWNl (COW 

) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (DOWN) (D 

OWN) (DOWH) (DOWH) (DOWH) CURS (27) , M B (GRN) ** ; ; RETURN 

1060 R*-6:Rl*-R*:E-3690 jE1*-Ei5-90.F-2600:S»*OiT-OiK*-0 

1090 RETURN 

1100 T1-TU:TRAP1100 

U10 PPI NT" [HOME) (HOKE) ICLK) (RVS) (LBLU) MISSION AMAZON A 
S (C) TAST 1987 <OFFJ ,, i 

1130 PRIHT^(DOWN) (BLKI SO LAHGT toEDE DU:(DOWHJ* 

1123 pRIKT"(GIW)^^w^^«*^^^**^**^^^^"" 

1130 PRIKTLEFTS ( ■ (YEL) (RVS) 

1133 IF T>10A«DT<30TKEHPRIIO""*YELll" 

1133 PR INT" (ORNI (RV3)**«*»«m**««»*«*««**»m*^*#«»*#»#»» 

U40 PR1KT" (DOWH) IBLK) DET SVARER TIL*MHT(T* 1O0/1010J j "* 

1143 PRINT" (DOWN) DU BRUGTE*; 

1143 IFHIDStTt . 3. 2)< >-00**THENPRINTVAL(MtDf <Tf , 3, 2) ) ; **HIN. 

OG"; 

1147 PRIHTVAHRlGHTHT» i 2)>;-SEK." 

1130 B-T/((VAL(LEFTl(TS f 41 ) *60*VAL(R1GHTS tTS. 2) } j * 3) 
1160 lF9>17W:NS*-S**lNT(8-999) : PRIHT"(DOWHl TIDSBONUS:"; [ 
NT(B*999) :ELSEPR[NT*MCOWN) !NG£H TIDBBOHUS " 
1170 PRIHT"(DOWHI 3AMLEDE PO[HT:":» 

1173 IF S*>Hl*THENPAJ)fr' (DOWN) (GRV1) (9130) DETTT ER H10H- 
SC0RE(S132)":H1%*3«:EL5£PR1HT"(D0WN> H(GH-SCOR£i " : Hit 
1177 PRINT" CGRNJi^ — ■ ■ n ■ i 

iPRIHT 

1176 PR1NT-|RV3)». ■ ■ 1 

OFF}" 

1180 PRINT" (DOWN) (LGRH) TAflT (WHT) 'FIRE* (LGRH) ELLER (WHT 
) KELLEMRUM (LGRH) FOR START" 

1183 JFHi<>-THENPRIHT"(DOWH) TAST (WKT)H(LGRH} FOR NY FL 
OD" 

1188 GETZS:IFZt<^^ ht ™£H1188 
1190 GETZSiIFZS-"N ># THEN1300 

1193 IFZi-"T"TH£NHf*-6":Vl*"D*' ; Ui- M 3";Dj--R";rs-Zl ; GOSUBl 

oeoronotoo 

1193 IFZS-" 4i THEHHl*" , . M :VS- t *. ,4 iUi- 4 *A*"iDf-"Z 4 *jFI-ZS:GOSUBl 

O6O1GOTOIOO 

1199 OOTO1190 

1300 TRAP1300:PR1NT^(CLR) (RVS) (L8LU) MISSION AMAZON AS 

(C) TAST 1987 (OFF) " j : COLORO. 7.4 
1310 PRINT" (DOWN) (DOWN) (DOWN) (DOWN! (LORN) DU KAN VxLGE IH 
ELLEM 65536 FORSKELLIGE FLODER. v 
1315 CHAR1.1.9. - - 

1320 PRINT" IBLK) VxLG EN FLOD ( (WHT) 1-65536 (BUC) ; ELLER IN 
DTAST** 

1325 PRINT" * (WHT)T(BLK) " FOB EN TILFkLDIG FLOO m i 

1330 G-0* INPUT 01: IF0l-"T~THENi343 

1335 G-VAL<G») 

134Q IFG>655360RG<1THEN1315 

1343 PRJNT'(DOWN) (DOWN) (DOWH) DET VIL TAOE ET OJEBLIK AT 
GENERERE FLCOEH*" 

1350 FORN-DTO1020iD*{H>-0;NEXT;0O9UB3000 

1390 IFG-OTHENBt-RND (-T! ) :EL5EB*-RND(H3) 

1500 FORN-100TOl0005TEP30i»(N-23)-2:W(H)*3:HEXT 

1320 FORN-20TO820STEP200:D%(N+100)-3 

1530 B%-U60Q-N)/330*C**(1630-N) /10O»l 

1340 FORK-H-20TOHtl805TZP2 

1350 IFD*(K)-OAHDRHDtl) ■ 19 >C*TKEND\ (R) -4 

1370 IF»(K)-0AHDRMD(n»3>WTH£Nt*(K)-l 

1380 HEJmC,HiD*(lOlO)-6 

1565 GOSUB1060 

isae ifvs-""™enu80 

1590 GOTO100 

2000 COL0R0.1:COLOR1.3 1 4;COL0R4.3 i 3iPRINT 1, (CLR) " 
2010 CHAR 1.6.6. H M I SSI ON (CYKIA K A Z 0 N A S" 
2013 PR I NT: PR I NT M *i 

2020 FOR N-l TO 12 :COLORl ,7 r H/2 : PRIHT-— " t t NE3CT 
2030 CHAR L. 13.12. "(CI TAST 1987" : CHAR1 .1.17/" 
2099 RETURN 

9000 DATA 4.4.32,32.2,2.16.16 
9005 DATA 24,24.60.90.24.36.36,0 

9010 FOHN-0TO13 ; READ A 1 POKE 14336+88-84N.A:NEXT 

9015 DATA255. 153. 153, 153. 153. 153. 153+255 i FORN*0TO7:READAi 

P«EN. 1 4336*71 ■ 8 , A t HEXT 

9020 DATA 6.28.62.62.62,62,62,62 

9030 F0RN-0TO7:READ A: POKE l4336*65-fl*H.A;NEXT 

9034 DATA 0.191.219.7.7.216.239.0 

9036 DATA 0.239.216.7.7,219.191,0 

9038 DATA 0,0.0,0,193,36.233,126 

9040 DATA 1.2,4,13.20.44.69.254 

90-12 DATA 253.24.24.255,66,129,0.0 

9045 DATA 255.24 . 24,233,60,126.235,126 

9046 DATA 128.64.32,240+72.124.190.127 

9047 DATA 0,0.0,0.0.36.24,60 

9040 DATA 0.124,71.123.57.40.56.124 

9030 F0RH-0T071 ;READAlPOKE14336*76*0*H. A.NEXTN 

9060 DATA 63.204.204.255.204.204,207.0 

9065 DATA 24.0.60.102.126,102.102.0 

9070 F0RN-0TOl5 l READAiPOKE1433fl*86»8*N.A ! HErr 

9060 DATA 233.255.127.62.26.8.0.0 

9085 FORN-0TO7:REA0A ; P0K£14336*8*90+N.A:NEXT 

11060 KT-DECt "FF12") 

11070 POKEXT.PEEX(KT)AND251 

11030 POKEKT+l , 14*4 

11090 POKE52.35:POKE36.33tilETURN 
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CHALLENGE 



ZX81 




Linie 



Dette lille program til en ZX-81 
med 1 6K RAM finder den "bedste* 
lime gennem et antal punkter. der 
i forvejen er lagt i lageret Derefter 
forfceller computeren, hvor Xst 
punkterne llgger p3 denne "bed- 
ste* llnle. SagtpS en anden m3de, 
finder den korTelationskoefficien- 
ten. 

Som en ekstra detalje sparger 
computeren. hvor mange decima- 
lers ncjagtighed man cnsker Efter 
alle beregninger er foreiaget. skri- 
ver computeren llgningen for 
men. som den tegnes. 

Peter Hei Hansen 




£ 
4- 
S 

7 

a 

10 

i H 

ia 

13 
14 
IS 



LET 

LET R1»0 
LET D=0 
LET B1=0 
LET C=0 
PRINT "HUOR 



MANGE OECIMfiLER 



INPUT He 

IF NB<* THEN LET NB-O 
LET NB*10#tND 

PRINT AT 0,0J "HUOR HflNGE PU 
NKTER SKRL LINIEN TEGNE5 EFTER 

SO INPUT N 

22 IF N<2 THEN PRINT "MXND&T T 
O PUNKTER • " 

^3 IF NO THEN GOTO SO 

25 CL5 

27 PRINT "XNDTfl*T NU PUNKTERNE 

26 PRINT RT 10,2, 
30 FOR M«l TO N 
3S PRINT n f: 

d© INPUT X 
-13 PRINT X; 



50 
53 
57 
6© 
SS 
7© 
75 
SO 
100 

no 

IIS 
120 
13Q 
1*0 
ISO 
150 
/MB 
IBS 
170 
N IMG 
+ - 5) 
ISO 

300 



M * 



INPUT V 
PRINT Y; "J 

IF M <H THEN PRINT ' t n l 

LET R=ft + X 

LET R1^R14X#X 

LET Bs6+Y 

LET B1=B1+Y*Y 

LET C«C+X#Y 

NEXT M 

LET XG-H,*N 

LET YCeB/N 

LET XU=ftl/N-XG#XO 

LET YU=B1/N«YG*YG 

LET M-(C/N-XG#YG) /XU 

LET 5 aYG-MtXG 

LET Rt=INT tM#M*XUmUMBr 



• Si 



(B#NB+ ,5> /NB 
- Oj " LINIEN3 LIO 
(M#NE, 



a; "Y« 



HIT 



LET B -INT 
PRINT RT O 

ER : " ; RT 3 
/NB; N #X"; 
IF B<0 THEN PRINT B 
IF B>0 THEN PRINT " + ";B 
PRIt4T RT 5*2; "KORRELRTIONEN 
: " ; R 



Texas TI99/4A 

Space Attack 




Jorden er under angreb fra frenv 
mede mutationerl og DU er sidste 
mand p5 skanserne... 
Tilintetgflr de fremmede rumski- 
be. efterftSnden som de prflver at 
Invaders vor tmede moder Jord, 
Du fflr points efter, hvor langt 
rumskibene n3r rved. Jo laengere 
de nSr ned. desto terre points. 
Som ssdvanligt starter du pro- 
grammer med RUN og saver det 
med SAVE CSl 

Morten Jensen 



100 FOR HI=1 TO 5 




z 


z z" 










110 LET N$(HI)="TI-99/4A" 


230 


PRINT " 


zz 


z 




z z 


120 NEXT HI 




zz zzz" : : : 










130 CALL CLEAR 




240 


PRINT " zz 


zzz 


zzz 


zz 


140 CALL CHAR( 122 , "FFFFFFFFF 


zz z z" 










FFFFFFF") 




250 


PRINT " z 


z 


z 


z 


z 


150 CALL COLOR(12,5,5) 




z z 


z z z" 










160 CALL SCREEN(S) 




260 


PRINT " z 


z 


z 


z 


z 


170 PRINT " zz zzzz 


zz 


z z 


z z" 










zz zzz" 




270 


PRINT " z 


z 


z 


z 


z 


180 PRINT " zzzz 


z z 


z z 


zz" 










z z z" 




280 


PRINT " zzzz 


z 


z 


zzz 


190 PRINT z z z 


z z 


z z 


z z" 










z z" 




290 


PRINT " z 


z 


z 


z 


z 


200 PRINT " zz zzzz 


z z 


z z 


z z z" 










z zz" 




300 


PRINT " z 


z 


z 


z 


z 


210 PRINT " z z 


zzzz 


z zz z z" : : : 










z z" 




310 


FOR L=l TO 


8 








220 PRINT " zzz 


z z 


320 


CALL COLOR ( 


L, 


16,1 


) 





330 NEXT L 


690 CALL CHAR(37, "0038443844 


340 GOSUB 670 


447C44") 

* 


350 CALL COLORU2.il ,5) 


700 RETURN 


360 PRINT " VIL DU SE PEGLE 


710 CALL CLEAR 


RNE?( J/N)" 


720 CALL S0UNDO0, 523,0) 


370 CALL SOUND( 1 ,800, 10) 


730 CALL SOUND(180, 587,0) 


380 CALL KEY(0,K,S) 


740 CALL SOUND(90, 698,0) 


390 IF S-0 THEN 370 


750 CALL SOUND(1Q0, 784,0) 


400 IF K<>74 THEN 530 


760 CALL SOUND(180, 698.0) 


410 CALL CLEAR 


770 CALL SOUNDC 180.587 .0) 


420 CALL C0L0R(8,16,5) 


780 CALL SOUNDf 180.523.0) 


430 PRINT TAB( 9 ) ; "SPACE ATTA 


790 CALL S0UND( 372 . 784 .0) 


CK" 


800 FX^100 


440 PRINT :::"DE FREMMEDE RU 


810 RANDOMIZE 


MV**SENER FORSSGER AT IN 


820 P=l 


VADERE JORDEN ! " : : "DIN OPGAVE 

_ _ ■ — — — — — — 


830 Z=0 


ER AT FORHINDRE DEM I AT L 


840 N=-l 


ANDE P% JORDEN" 


850 H=l/2 


450 PRINT "DU F%R ET EKSTRAL 


860 PM=24 


IV VED 300P" 


870 CM=32 


460 PRINT : "KANONEN AFFYRES 


880 B=3 


MED " "A" " . " : : "RYK TIL VENSTR 


890 POINTS=0 


E MED ""S"".": :"PYK TIL H$JR 


900 MC=16 


E MED ""D"" . " 


910 CALL CLEAR 




920 R=INT( 10*RND+1 ) 


LUC K # *** # " : : 


930 IF R=l THEN 920 


480 PRINT "TRYK P% EN TAST N 


940 G=INT( 16*RND) 


%R DU ER KLAR" 


950 IF G<3 THEN 940 


490 CALL SOUND( 1,800, 10) 


960 CALL C0L0R(9,G,1) 

^p * * bp* p^ ^p^ • ■ i p* m "j i A r 


500 CALL KEY{0 ( K,S) 


970 IF B=0 THEN 2310 

■ "PT p h — — ■ ■ — ■ P H H 


510 IF S=0 THEN 490 


980 FOR 0=1 TO 20 


520 CALL C0L0R(8,16,1) 


990 J=INT{ 22*RND*1 ) 


530 CALL CLEAR 


1000 IF J=l THEN 990 


540 CALL SCREEN(2) 


1010 CALL HCHAR( J , INT(31*RND 


550 CALL CHAR(96,"55E7FF3C7E 


+ 1 ) ,46) 


FFBDAS") 


1020 NEXT 0 


560 CALL CHAP(97, "9104500288 


1030 0T=2 


200441" ) 


1040 M$="SC0RE: HIGH: 


570 CALL CHAR(98 "1940052088 


11 


024014") 


1050 FOR KX=1 TO LEN(M$) 


580 CALL CHAR( 104, "001818000 


1060 CALL HCHAR ( 1 , 0T , ASC ( SEG 

— — . — — i p^ — p — — pj i p«r" TC T ^T^T — l_ — ■ p*^_ - ^pmplpp- p^_k 


0181800" ) 


$(M$ ,KX , 1 ) ) ) 


590 CALL COLOR(10,16,1) 


1070 0T=0T+1 


600 CALL CHAR(112,' , 161818181 


1060 NEXT KX 


8181818") 


1090 P=INT( 10 # RND+1 ) 


610 CALL COLOR (11, 7, 1 ) 


1100 IF R=l THEN 1090 


620 CALL C0L0R( 12,8, 1 ) 


1110 G=INT( 16*RND) 


630 CALL CHAR ( 121 ,"181818183 


1120 IF G<3 THEN 1110 


C7EFFFF" ) 


1130 CALL C0L0RO.G.1) 


640 CALL CHAR ( 122 , "000000000 


1140 IF B=0 THEN 2310 


00000FF" ) 

* 


1150 FY=8 


650 CALL CHARU30, "194005208 


1160 A$=STR$(P0INTS) 


8024014") 


1170 B$»STR${ SR( 1 ) ) 


660 GOTO 720 


1180 FOR UK=1 TO LEN(A$) 


670 CALL CHAR(35,"003E48487E 


1190 CALL HCHAR ( 1 , FY, ASC (SEG 


48484E" ) 


$(A$,UK,1))) 


680 CALL CHAR(36,"007C444C54 


1200 FY=FY+1 


54647C") 


1210 NEXT UK 



32 



1220 HIK=21 

1230 FOR ZT=1 TO LEN(B$) 
1240 CALL HCHAR ( 1 , HIK , ASC ( SE 
G$(B$,ZT,1))) 
1250 HIK=HIK+1 
1260 NEXT 2T 

1270 CALL HCHAR(1,28,121 ,B-1 
) 

1280 C=INT(RND*28)+1 

1290 CALL HCHAR(24, 1,122, 32) 

1300 CALL HCHAR(24,MC,12l) 

1310 IF R=l THEN 1330 

1320 GOTO 1340 

1330 LET R = 2 

1340 CALL HCHAR(R,C,96) 

1350 GOSUB 1500 

1360 GOSUB 1980 

1370 OR=R 

1380 OC=C 

1390 RC=SGN( RND-H*H ) 
1400 TR=R+RC 
1410 IF TR=RM THEN 2220 
1420 IF TR=Z THEN 1390 
1430 CC=SGN(RND-H) 
1440 TC=C+CC 

1450 IF (TOCM) + (TC=Z)THEN 1 
430 

1460 R=TR 
1470 C=TC 

1480 CALL HCHAR ( OR, OC, 32) 

1490 GOTO 1310 

1500 CALL KEY(1,K," ) 

1510 IF C- *K THEN 1540 

1520 CALL HCHAR(24,1 ,32 J 

1530 RETURN 

1540 IF K>3 THEN 1520 

1550 ON K GOTO 1570,1640,171 

0 

1560 RETURN 

1570 CALL HCHAP(24,MC,121) 
1580 CALL SOUND (200 ,-7, 9) 
1590 IF MC=C THEN 1780 
1600 CALL VCHAR( 2 ,MC, 112,22) 
1610 CALL VCHAR(2,MC,32,22) 
1620 GOSUB 2000 
1630 RETURN 

1640 CALL HCHAR(24,MC, 122) 
1650 IF MC<2 THEN 1670 
1660 GOTO 1680 
1670 LET MC«2 
1680 MC=MC-P 

1690 CALL HCHAR(24,MC,121) 
1700 RETURN 

1710 CALL HCHAR(24,MC,122) 
1720 IF MC>31 THEN 1740 
1730 GOTO 1750 
1740 LET MC=31 
1750 MC=MC+P 



1760 CALL HCHAR(24,MC,121) 
1770 RETURN 

1780 CALL VCHAR(R+1,MC,112,2 
3-R) 

1790 CALL VCHAR(R+1 ,MC,32,23 
-R) 

1800 FOR U=0 TO 30 STEP 2 
1810 CALL SOUND(50,-5,U) 
1820 CALL HCHAR (R.MC, 97) 
1830 CALL HCHAR (R.MC, 98) 
1840 NEXT U 

1850 CALL HCHAR(R,MC,32) 

1860 POINTS=POINTS+24-R 

1870 IF POINTS>=EX THEN 1890 

1880 GOTO 1090 

1890 B = B+1 

1900 FOR LY«1 TO 5 

1910 CALL SOUND(-100, 880,0) 

1920 CALL SOUND(-100,880,8) 

1930 CALL SOUND(-100,880,16) 

1940 CALL SOUND(-100,880,26) 

1950 NEXT LY 

1960 EX=EX+300 

1970 GOTO 1090 

1980 IF ABS(C-MC)<5 THEN 200 
0 

1990 RETURN 

2000 IF RND>.3 THEN 1990 
2010 CALL SOUND(275,-3,24-R) 
2020 CALL VCHAR(R+1 ,C,104,23 
-R) 

2030 CALL VCHAP(R*1 ,C,32 f 23- 
R) 

2040 IF MC=C THEN 2060 

2050 RETURN 

2060 CALL SCREEN(5) 

2070 CALL SCREEN(2) 

2080 CALL CLEAR 

2090 CALL SOUND(l000,-5,0) 

2100 B=B-1 

2110 IF B=l THEN 2170 

2120 PRINT TAB(8) ; "KANON $DE 

LAGT . " : TAB ( 5 ) ; B ; "KANONER TIL 

BAGE." :::::::::::: 

2130 CALL SOUND(1000,110,30) 

2140 CALL SOUND(2000,110,30) 

2150 CALL CLEAR 

2160 GOTO 900 

2170 PRINT TAB( 8 ) ; "KANON $DE 
LAGT . " : TAB ( 6 ) ; B ; "KANON TILBA 
GE ."::::::::::: : 

2180 CALL SOUND(1000, 110,30) 

2190 CALL SOUND(2000,110,30) 

2200 CALL CLEAR 

2210 GOTO 900 

2220 CALL CLEAR 

2230 PRINT TAB ( 8 ) ; "KATASTROF 

EM!!": TAB( 6 ) ; "RUMSKIBET ER 



CHALLENGE 



K=l TO 7 
CALL SOUND (200, 524, 3) 
SCREEN { 9) 
SOUND ( 200,440, 3) 
SCREEN{2) 
K 

2310 
CLEAR 
" GAME OVER.'\PO 



CALL 
CALL 
CALL 
NEXT 
GOTO 
CALL 
PRINT 



"POINTS" :::::::::: 
CALL SOUNDt 2000, 110,30) 
CALL SOUNDt 2000, 110,30) 
IF P01NTS<=SR( 5) THEN 25 

MPOINTS=POINTS 

INPUT "INDTAST DIT NAVN 



LANDET . " 
2240 FOR 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
INTS 
2330 
2340 
2350 
20 

2360 
2370 
:" :NA$ 

2380 IF LEN(NA$><14 THEN 241 
0 

2390 
2400 
2410 
2420 
2430 
2440 
10 

2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
zzzzz" 
2540 PRINT 
z" 

2550 PRINT 
RES z" 

2560 PRINT " 
z" 

2570 PRINT " 
zzzzz" : : : : 
2580 FOR M=l 
2590 PRINT " 

" ;N$CM) : : 
2600 NEXT M 
2610 PRINT : 
LE IGEN?(J/N 
2620 CALL KEY(0,K,S) 
2630 IF S=0 THEN 2620 
2640 IF K<>74 THEN 2660 
2650 GOTO 720 

2660 PRINT TAB(8) ; "TAX FOR 
PILLET" 
2670 END 



PRINT "FOR LANGT! " : : 

GOTO 2370 

SR( 10)=MPOINTS 

N$( 10)=NA$ 

FOR J=10 TO 2 STEP -1 
IF SR ( J K- SR { J - 1 ) THEN 25 



TP=SR( J-l) 
T$=N$( J-l ) 
SP(J-1)=SR(J) 
N$(J-1 )=N$(J) 
SR( J ) =TP 
N$(J)=T$ 
NEXT J 
CALL CLEAR 
PRINT " 



zzzzzzzzzz 



II 



II 



z HIGH SCO 



zzzzzzzzzz 



TO 5 
;M; 



M ;SR(M) ; 



VIL DU SPIL 



Commodore 64 





Med Tromilletester' kan du. ud- 
over hvad navnet angtver. fa testet 
mange ting. Programmet praver 
din reaktlonsevne. og sa ma du af- 
gsre. om du er i stand til at fore bil. 
flyve. bnjge motorsaven eller 
hvad. du nu giver dig af med.., 

Ole Madsen 



5 PRINT M <CLR> H : K = 16 

: PRINT " REPtKT 1 0NSTE8T" 
10 PRINT "" INPUT 'TUT NflVN 'Mil 

15 PRINT" " PRINT"PROEV HEP PIN REftK 
T I ONSEVNE PRINT 

16 PRINT"" I PRlNT w MflflR SKflFRMENS p« 
RVE 3MFTER 

17 PRINT "TRVK Pflfl MjUL.'MELLEMRUMSThH 
GENTEN<L.BLflR>'' 

13 PRINT "" PRINT "KLRR?<TRVK J EL 
LER N; 

25 GET ft* : IP Ht=" M THEN 25 

26 IF ft* = "J" THEN 29 

27 IF ft* O "H" THEN 17 

as END 

29 PRINT w #" 

35 FOR RX ■ X TO 1 STEP -1 

36 SET ft* : IF ft* O "" THEN PRINT " 
SNVD" 

57 NEXT RX 

40 POKE 53286 . & 

45 V = TI 

50 GET ft* : IF ft* ■ "" THEN 50 




55 IF Ri O HEM 59 

60 Z - TI P = 

€5 PRINT " PERKT10NSTIU = *R" SEK . " 
7Q POKE 53286, 14 
75 IF R > K THEN 90 
86 k = P PRINT 
82 Ft = Tjf 

85 IF R < . 1 THEM 150 

86 00 TO 100 

90 IF R > 5.0 THEN 165 
95 IF R > 3.0 )60 

97 IF R > 1,0 THEN 155 

98 GOTO 110 

100 PRINT Ft " SLRRR " TftB<17> "<U 

LLR.RVS ON.'N v R E K 0 R D<RVS 0 

FF.0RRA3) 1 ' 
110 PRINT ;PRINT"VIL W PROEVE 10 

EN - SRR TPVK EN TASTE" 
112 PRINT "VED NV SPTLLER - TPVK N" 
115 GET m IF RS = "" THEN 115 

119 PRINT "<CLR) H 

120 PRINT TflEde.' F* M S REKORD 
:<OUL>RVS ON>"K "<RV3 OFF, L. BLflfl) " 

125 IF R* = "N" THEN GOTO 10 



130 GOTO 1* 

150 PRINT F* " SLHflP- H W17^« " < L . 

R0D.RVS ON>S U P E R R E K 0 R D< 

RVS OFF,L.BLRR>" 
152 GOTO 110 

155 PRINT "HE I ER LIDT 3L0VT "US " P 

R0V I GEN" 
157 GOTO 16 

160 PRINT " HVR HULEN " D* " - SIDD 
ER DU OG FILLER NRESF" 

162 P«?INT "TiFT 3KRL GORES BEE'RE - PR 
OV I GEN" 

163 GOTO 16 

165 PRINT "B UNDREKORD- HEL 
T URNTRGELIGT" 

166 PRINT "JEG SKVNUER NIG RT GLfcHME 
NRVNET "Ii* 

167 PRINT " - OG HRR VI SRR f^RR EN N 
V SPILLEP" 

168 GOTO 10 
200 INPUT D* 
210 Ft = D$ 
220 GOTO 200 



35 



TWHOOfr 




G0R DIN COMMODORE 
ORKAN-KOMPATIBEL 

Typhoon er engelsk og betyder orkan. 
Det er ogs& navnel pa Danmarks kraftigste Commodo- 
re-cartridge El nyt multi-modul, du smaskker i din 64'er 
eller 128'er hvisdu vil udvide med en sand hvirvelvind 
at orkan-krattige kommandoer- 

- Otd-funktion, der redder selv el NEW'et program! 

- Reselknap, der altid standser el lobsk program! 

- Listfrysning, der hindrer ruining af skaermen! 

- Omseelning fra maskinkodo til datalmier i BASIC* 

- Valgfh udkobling af modulet, nSr det snskes! 

- Menustyret opslad med mange valgmuligheder! 

- Byteshj£Blp. som konstant viser hukommelsesforbru- 
get! 

- Orkan-speed pS tape save og load t 10 GANGE HA- 
STIGHEDENf 

- Sterste tape back-up pa markedet (hele 202 blokke) 

Hvis du ikke synes. det er nok til at rore en storm op. sS 
se, hvad Typhoon gor ved din diskettestation (1541, 1570 
el 1571): 



- Hurttgloading fra diskette, hete 7 gange sA hurtrgt (ren 
orkan-tempo)! 

- Formatiering af ny diskette pA bare 23 sekunderf 

- Disk-utilities med masser af drsk-kommandoer! 

- Diskette monitor med separai spor/sector adgang! 

- Gennemsegning af en diskette for fejl! 

Typhoon er navnel pa vores nye modul 

Vi valgte det, fordi du f3r din hett egen lille orkan for 345 - 



Kupon 

JATAK, smid orkanen i min Commodore! 

345.- kr vedl. i check □ indsats pS giro- 
nr. 9 50 63 73 

Navn: 



Adresse: 



Post; 



By: 



sendes til: 



COMpuler 

St. Kongensgade 72. 

1264 Kbh, K. 



Commodore 64 



The Four 



Advarsel: N3r du indtaster dette 
program, vil du fS et chok. Der er 
fed grafik pS din 64'ers staerm og 
hasttgheden er teeskehurtig ma- 
skinkode. 

I spillet skal du ind I hvert af de tire 
rum. Her skal du tage en kiste. der 
bevogtes af mange uhyrer. De 
draber dig naturligvis under bere- 
ring, men dem skal du blot skyde. 
Det lyder na?slen nemt - men vent 
bare, 

Derefter ga> du rundt i forskellige 
rum og n&r du. efter mange forseg. 
nar hentet kisten i alle njmmene. 
q&r du til hejeste niveau og fiere 
points! 

Bliver du tra?t af spillet. erdet kun 
fordi det g3r s3 hurtigt. at du Ikke 
kan falge med. Styr med et Joy- 
stick og husk, at skydeknappen 
skal bruges mere end oftel 

Peter Cordes 




1 REM *PETER CORDES * DE FIRE RUM* 

2 REM **************************** 

3 REM * * 

4 REM * DU SKAL SAMLE SAA MANGE * 

5 REM * POINT SAMMEN SOM MULIGT. * 

6 REM * -DU AVANCERER TIL STADIG * 

7 REM * HOJERE LEVEL, HVIS DU ER * 

8 REM * RAP MED JOYSTIK I PORT 2 * 

9 REM * * 

10 REM**** ************************ 
1 1 REM 

12 REM 



100 PRINT"< CLR,CRSR NED20. 
CRSR H0JRE13)VENT LIOT" 

101 SN*54272iF0R I =SN TO SN+24 

t POKE I ,01 NEXT: AD =54277: SR*AD* 1 
:LF»SNiLH=SN+l 

102 CR-SN+4I VL=54296 

103 POKE AD,16iP0KE SR,240 

104 POKE VL , 15 

110 GOSUB 8201G0SUB 1810 

115 Tt='(RVS 0N,SPACE40,RVS OFFJ'iP 
ISC«0ILV= 1 

116 FOR 1 = 1 TO 4 ! RM< I > =0 s NEXT 



120 S*""(RVS 0N,SPACE2,RVS OFF , 

SPACE36,RVS 0N,SPACE2 ,RVS OFF > " 
125 POKE 19194,7 

130 DEF FNRXC X ) = 1NT< RNDt 1 ) *87 ) +X 
I0EF FNRY< Y) * INT< RNOC 1 ) *57 ) *Y 
:POKE 53280,0 
140 POKE 53281 ,0 < PL" 1524 : PX=20 : PY= 12 
!0PL=1524:P0KE PL, 81 
(POKE PL+54B72,4iEN=53269 
150 POKE EN,255:P0KE 49192, OiLV-l 

I SC =0 1 CS =53278 : CD=53279 s GOSUB 330 
:GOTO 115 
1G0 PR INT ■< CLR ) 'n PR INT 

:PRINT T«;S*;S*.- : GOSUB 180 
IPRINT S*;S*; :GOSUB 180 
: PR INT s*;s*;T* 
170 PR INT"< HOME ) " s RETURN 
180 PRINT-CRVS 0N,SPACE2 ,RVS OFF, 

SPACE2 ) , 1 i 

, <RVS 0N,SPACE2,RVS OFF ) " ; 

190 PRINTVRVS 0N,SPACE2,RVS OFF , 
SPACE2) I I I 

I < RVS ON, SPACES, RVS OFF ) " 
200 PRINT"<RVS 0N.SPACE2 ,RVS OFF, 
SPACE2 ) I II 

| < RVS 0N,SPACE2,RVS OFF > " t 
210 PRINT"<RVS 0N,SPACE2,RVS OFF, 
SPACE2>I I I 

1 <RVS 0N,SPACE2,RVS OFF)"; 
220 PRINT"<RVS 0N,SPACE2 ,RVS OFF, 
SPACE2 > | I I 

| (RVS 0N,SPACE2,RVS OFF > ■ I 
230 PRINT"(RVS 0N,SPACE2 ,RVS OFF, 
SPACE2> I I I 

I <RVS 0N,SPACE2,RVS OFF ) ' » 
240 PRINT"<RVS 0N,SPACE2 ,RVS OFF, 

SPACE2 > 1 1 ' 

1 <RVS 0N,SPACE2,RVS OFF)"; 

250 RETURN 

260 PRINT"CCLR>V :PRINT:PRINT TS; 
270 FOR I»l TO 20 ! PR INT S*;:NEXT 

:PRINT T*:PRINT-(H0ME5" 

:PRINT-(CRSR NE09 ) "J 
280 D*=" I 

I ":PRINT d«;d*;D*;d* 

i RETURN 

290 PRINT"* HOME ,CRSR NE023,GUL, 
SPACE2 )SCORE "SC " LEVEL "LV ■ 

L I V "P "< L . BLAA ) " : 

29 1 PRINT"< HOME) " : RETURN 
330 IF TC< >4 THEN 340 

335 TC=0:F0R I»I TO 4 : RM< I ) =0 : NEXT 
t LV*LV+ 1 iGOSUB B80 

336 IF LV/4" INT< LV/4 )THEN P-P + l 

I V«7-INT< LV/4 ) I IF V>"0 THEN POKE 
49194, V 

340 POKE 49 192,0: POKE 53269,0 
: GOSUB I 60: GOSUB 230 
I IF P"0 THEN 610 



341 IF RMC1) = I THEN POKE 1315,160 

342 IF RM<2) = 1 THEN POKE 1332,160 

343 IF RM<3)"I THEN POKE 1675,160 

344 IF RM<4>=1 THEN POKE 1692,160 
350 POKE PL,8l:P0KE PL+54272,4 
360 M=PEEK( 56320 > : M"< M AND 15) 
370 IF M=I5 THEN 360 

380 DX=< C M>8)AND< M< 12))-<M<8) 

390 0Y = < < M=6)0RC M- 10 )0R( M= 1 4 ) ) -< < M"5 

)OR( M«9)0RC M- 13) > 
400 PX=PX+DX:PY=PY+OY 
410 PL=< PY*40)+1024+PX 

: IF PEEK<PL)<>32 THEN 430 
420 POKE OPL,32tP0KE OPL+54272,0 

! POKE PL ,81! POKE PL +54272 ,4 i OPL=PL 

:GOTO 360 
430 IF PEEKCPL)<>9 THEN GOTO 590 
440 IF PY=7 THEN RM= 1 
450 IF PY=16 THEN RM=3 
460 IF PX>19 THEN RM-RM+ 1 
470 IF RM«1 THEN CL«6 
480 IF RM=2 THEN CL-7 
490 IF RM=3 THEN CL=5 
500 IF RM=4 THEN CL-2 
510 POKE 53292, CL 

520 IF RM<RM)"1 THEN PX = PX-DX 

• PY=PY-DY: PL=< PY*40)+ 1024+PX 

:0PL=PL:G0T0 420 
530 FOR 1*1 TO 4IP0KE 2040+ I ,230+RM 

i POKE 53287+ I ,CL * 1 1 NEXT 

(POKE 2045, 235+RMl GOSUB 650 
540 X"PEEK< 53248) t Y«PEEK< 53249) 
550 IF X<=46 THEN PX*-3«< < RM= 1 )0R< RM 

= 3) ) -20 *( ( RM=2)0R< RM=4) ) 
560 IF X>46 THEN PX = - 1S*( < RM* 1 )0R( RM 

■3) )-36*< ( RM*2>0R< RM=4 ) ) 
570 PY=-7*< < RM=1 )0R< RM-2) )-16*( C RM=3 

>0R< RM=4) ) IPL*< PY*40) + 1024+PX 

:OPL*PL 
580 GOTO 330 
590 PX=PX-DX!PY=PY-DY 
600 GOTO 360 

610 PRINT'C HOME ,CRSR NED7, 
CRSR H0JRE16,RVS ON, 
GUDSPIL SLUT<RVS OFF ) ■ 

611 PRINT"(CRSR NED, CRSR H0JRE7, 
RVS 0N,SPACE2)TRYK EN TAST FOR ET 

NYT C L.BLAA ,RVS OFF>":POKE 198,0 

612 WAIT 198,1 

613 PR INT" < CLR ) ■ : RETURN 

650 POKE 0PL,32:P0KE OPL+54272,0 

IPOKE PL,3l:P0KE PL+54272,4 

I GOSUB 260 I GOSUB 290 
660 IF PX=I8 OR PX=35 THEN 680 
670 X*45:Y«145:P0KE 53264, 

P£EK< 53264 )AND 254:P0KE 49189,0 

tGOTO 690 
680 X»45: Y»I45:P0KE 53264, 

PEEK< 53264 )0R 1 t POKE 49189,1 



6^0 POKE 53248 ,X s POKE 53249 , Y 




1 000 

» 


DATA 

Wl P ■ P P 


192 ,3 , 126 , 192 ,3 , 126 , 192 ,3 


: POKE 53264 ,PEEK< 53264 :> AND 1 




10 10 


OflTft 


126, 192 ,0, 102,0,0, 102,0 

■ ■ ^ w— r mr ■ v ^p- — m — pj- i ■ ■ h pr 


; POKE 53269 . 0 




1020 


DflTft 

■r t P 


0 w 102 ,0,0, 102 ,0 ,0 r 102 


700 PL»5325Q s POKE PL ,FNRX( 58 ) 




1030 


DflTft 


0,0, 102 ,0,0,231 ,0,0 


! POKE PL + 1 , FNRY< 67 > 




1050 


DATA 


0,0,0,0,0,0,0,0 


fPOKE PL+2,FNRX< 169> 




1060 


DATA 


11c, 0,0, 216, 0,1 ,240,0 


710 POKE PL +3 ,FNRY< 67 > 




1070 


DATA 


1 , 192 ,0 , 1 , 192 ,0 ,0 ,224 


:PQKE PL +4 ,FNRX< 59 > 




1080 


DATA 


0 ,0,56 ,0,0 ,28,0,0 


: POKE PL +5 FNRY< 146 > 




1030 


TATA 

• P » www 


14,0 ,240 ,14,131 ,252 , 14 , 1 99 


720 POKE PL+6,FNRX< 167) 




1 100 


DATA 


255 , 14 ,207 , 15 , 158 ,254 ,7 ,25 


SPOKE PL+7,FNRYC 146) 




1 1 10 


OATA 


124 ,3 ,248 .56 ,0 ,224 ,0 ,0 


730 POKE PL+6 , INTC RNDt 1X222 2+33 




1 120 


DATA 


0,0,0,0,0,0^0,0 


sPOKE PL +9 , INT< RND< I)*139>+66 




1 140 


DATA 


0,0,0, 12 ,0 ,48,30,0 


: POKE EN,255 




1 150 


DATA 


120, 18,24,72,51 ,60 ,204 ,97 


740 GOSUB 900= POKE 49 1 78 ,0 




1 160 


DATA 


60 , 134 , 13 , 153 , 1 76 ,30 ,255 , 


750 SYS 43152:fl=PEEK< 49178> 




120 




760 IF THEN POKE 49178,0 




1 170 


OATA 


51 , 127,204 ,45,255, 180, 1 10. 


: POKE 49 190 ,0 r RETURN 




255 




770 IF A< >2 THEN 800 




1 180 


DATA 


1 18,2 19,255,219,53,255, 172 


780 POKE 49 1 78 # 0 * POKE 49 190 ,0 : P =P - 1 




1 10 




t IF pw PM'si THEN PMC RM) =0 




1 130 


DATA 


255 ,118,219 ,255 ,2 19 ,48 ,60, 


s SC-SC -300 : TC*TC - 1 




12 




785 FOR 1-20 TO 0 STEP-l:POKE LH , I 




1200 


DATA 


32 ,24 ,4 ,96,0 ,6 ,64 .0 


:POKF CR 17:F0R W= 1 TO 20 s hEXT 




1210 


DATA 


2 ,64 ,0,2,0,0,0,0 


i POKE CR ,16' NEXT 




1230 


DATA 


0 ,24 ,0 ,0 ,60 ,0 ,0 , 126 


790 POKE CR .0 ( POKE 5326 1 #0 * RETURN 




1240 


DATA 


0,0, 195, 0,0, 195, 0,0 


300 IF fl< >3 THEN 810 




1250 


DATA 


102 ,0 ,0 ,60 ,0 ,0 ,255 ,0 


Rfl 1 SC=£C +300 t GOSUB 290 S TC*=TC+ 1 




1260 


DATA 


I ,255 , 128 ,3 , 189 , 192,3 , 189 


! POKF 4 9 1 7R O ! RMC RM > = 1 




1270 


DATA 


192 ,7 , 126 ,224 ,7 , 126 ,224 ,9 


! POKE 5326 1 ,0 




1280 


OATA 


126, 144 , 16 ,255 ,8 ,9 , 126 , 144 


802 FOR 1=0 TO 100 STEP IQsPGKE LH * 


I 

■ 


1290 


DATA 


6,255,96,0 ,255,0, 1 ,255 


! POKE CR . 1 7 r FOR 1 TO 20 t NEXT 




1300 


OATA 


128,3,255, 192,0,0,0,0 


: POKE CR , 16 : NEXT 




1320 


DATA 


2,0,64,14,66, 1 12,63,90 


803 POKE CR ,0 i GOTO 750 




1330 


DATA 


252 , 127 ,255,254 ,255 , 129 , 


810 POKE 491 78 ,0 s POKE 49 190 * 0 




255,255 


( SC"SC+ 10 i GOSUB 290 * GOTO 750 




1340 


DATA 


165,255,221 , 1 29 , 1 87 , 1 36 , 


820 POKE 2040 .230 * POKE 204 1,231 




195, 17 




: POKE 2042 ,232 * POKE 2043 ,233 




1350 


DATA 


0, 195,0,0, 102,0,0,126 


SPOKE 2044 ,234 




1360 


DATA 


0,0,60,0,0,60,0,0 


930 POKE 2045 , 236 * POKE 3046 ,235 




1370 


DATA 


60,0,0,60,0, 16,56,0 


840 CH=*0 s FOR I = 14720 TO 15359 = READ 


Pi 

p p 


1380 


DATA 


48,248,0,255,224,0, 127,128 


: POKE I ,fliCH=CH+fl* P«XT 




1390 


OATA 


0,48,0,0,16,0,0,16 


845 IF CH045651 THEN PR INT"FE JL I 


0 


1410 


DATA 


0,0,0,0,0,0,0,0 


flTfl FOR SPR I TEDEF I N I T I ONER I END 




1420 


DATA 


0,0,0,0,0,0,0,0 


350 RETURN 




1430 


DATA 


0,0,0, 126,0, 1 , 153, 128 


890 POKE EN,OiPRINT-< CLR,CRSR H0JRE5 , 


1440 


DATA 


2 ,60 ,64 ,6 ,255 ,96 ,6 ,255 


CRSR NEDS >DU AVANCERER TIL LEVEL 




1450 


DATA 


96,2,60,64, 1 , 153, 128,0 


- 1 LV - f ■ 




1460 


DATA 


126,0,0,0,0,0,0,0 


890 FOR U=l TO 3000 : NEXT : RETURN 




1470 


DATA 


0,0,0,0,0,0,0,0 


900 fl=PEEK< 49 183 > t ON GOTO 910,920 


1490 


DATA 


0,0,0,0,0,0,0,255 


910 ft=1424iG0T0 930 




1490 


DATA 


0,0,0,0,0,0,0,0 


920 fl=1462 




1500 


OATA 


0,0,0,0,0,0,0,0 


930 FOR l=ft TO ft+120 STEP 40 




1510 


DATA 


0,0,0,0,0,0,0,0 


(POKE X, 160: POKE I + 1,160:NEXT I 




1520 


DATA 


0,0,0,63,255,252,96,0 


: RETURN 




1530 


DATA 


6, 192,0,3,255,255,255, 192 


960 DATA 0,60,0,0,126,0,0,219 




1540 


DATA 


20,3, 192,28,3, 192,0,3 


970 DATA 0,0,255,0,0,255,0,0 




1550 


DATA 


192,0,3,255,255,255,0,0 


980 DATA 126,0,0,60,0,1,255,128 




1560 


DATA 


0,0,0,0,0,0,0,255 


990 DATA 3,255,192,3,126,192,3,126 




1570 


DATA 


0,0,0,0,0,0,0,0 




1580 DATA 
1590 DATA 
1600 DATA 

255 
1610 DATA 

65 

1620 DATA 



1630 
1640 
1650 
1660 
1670 
1680 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



183 
1630 DATA 
60 

1700 DATA 
17 10 DATA 
1720 DATA 



0,0,0,0,0,0,0,0 
0,0,0,0,0,97,255, 134 
146,0,73,147, 129,201 ,137, 

145, 135,255,225, 128,255, 1 , 

255 , 1 30 , 34 , 1 26 , 68 , 28 , 60 , 56 

0,255,0,3,255, 192,31 ,255 

248,0,0,0,0,0,0,255 

1 ,255, 128,3,255, 132,7, 129 

224 , 12, 195,48,24, 102,24,56 

60,28,60, 126,60,54 , 195, 108 

51 , 153,204,49, 189, 140,43, 

140,51 ,153,204,54, 195,108, 



126,60,56,60,28,24, 102,24 
12, 195,48,7, 129,224,3,255 
192, 1 ,255, 128,0,0,0,0 
1730 DATA 0,0,0,0,0,0,0,0 
1740 DATA 0,0,0,0,0,126,0,0 
1750 DATA 195,0,0,195,0,0,126,0 
1760 DATA 0,60,0,0,60,0,0,60 
1770 DATA 0,0,126,0,0,255,0,0 
1780 DATA 255,0,1,255,128,1,255,128 
1790 DATA 3,255,192,3,255,192,3,255 
1800 DATA 192,1,255,128,0,235,0,0 
1810 CH"0: 1=43152: IF PEEKCIJ-76 THEN 
RETURN 

1820 READ A:CH*CH+A:lF A=256 THEN 18 
40 

1830 POKE I ,A: 1=1+1 tGOTO 1820 

1840 IF CH<>141279 THEN PR INT "FORKER 

TE DATA 1 ML - KLOVN" ! END 
1850 RETURN 
1860 DATA 
1870 DATA 
1980 DATA 
1890 DATA 
1900 DATA 



76,24,194,1,2,4 
8,16,32,64,128,254 
253,251 ,247,233,223, 191 
127,0,0,0,0,0 
0,0,0,0,0,0 
1910 DATA 0,0,0,0,0,0 
1920 DATA 0,0,0,0,0,0 
1930 DATA 0,0,173,20,192,10 
1940 DATA 168,14 1,19,192,185,0 
1950 DATA 208,14 1,2 1,192,172,20 
1960 DATA 192,185,3,132,45,16 
1970 DATA 208,141,22,192,172,19 
1980 DATA 192,185,1,208,14 1,23 
1390 DATA 192,173,21,192,24,109 
2000 DATA 24,192,141,21,192,201 
2010 DATA 255,240,19.201,0,240 
2020 DATA 3,76,129,192,172,20 
2030 DATA 192,185,3,192,141,22 
2040 DATA 192,76,129,192,173,24 
2050 DATA 192,16,12,173,21,132 
2060 DATA 201,255,208,5,169,0 
2070 DATA 14 1,22,132,173,23,192 
2080 DATA 24,109,25,192,141,23 
2090 DATA 192,172,20,192,173,22 



2100 


DATA 


2110 


OATA 


2120 


DATA 


2130 


DATA 


2140 


DATA 


2150 


DATA 


2160 


DATA 


2170 


DATA 


2180 


DATA 


2130 


DATA 


2200 


OATA 


2210 


DATA 


2220 


DATA 


2230 


DATA 


2240 


DATA 


2250 


DATA 


2260 


DATA 


2270 


OATA 


2280 


DATA 


2230 


DATA 


2300 


DATA 


2310 


OATA 


2320 


DATA 


2330 


OATA 


2340 


DATA 


2350 


DATA 


2360 


OATA 


2370 


DATA 


2380 


DATA 


2390 


OATA 


2400 


DATA 


24 10 


OATA 


2420 


DATA 


2430 


DATA 


2440 


DATA 


2450 


DATA 


2460 


DATA 


2470 


DATA 


2480 


DATA 


2490 


DATA 


2500 


DATA 


2510 


DATA 


2520 


DATA 


2530 


DATA 


2540 


DATA 


2550 


OATA 


2560 


DATA 


2570 


DATA 


2530 


DATA 


2590 


DATA 


2600 


DATA 


2610 


DATA 


2620 


DATA 


2630 


DATA 


2640 


DATA 


2650 


DATA 


2660 


OATA 


2670 


DATA 


2680 


DATA 



132,240, 12, 185,3, 192 
13, 16,208, 141 , 16,208 
76, 168, 192, 185, 1 1 , 132 

45, 16,206, 14 1, 16,208 
172, 19, 192, 173,21 , 192 
153,0,208, 173,23, 132 

201 ,66, 144,9,201 ,205 

240,2, 176,3, 153, 1 

208 , 169,0 , 141 ,24 , 192 
141 ,23, 192,96, 173,0 

220,4 1 , 15,201 , 15,208 

3,76, 111, 193,32,207 
193,32,44 , 192, 173, 1 

208,201 ,66,208,9,24 
105, 1,141,1 ,208,76 

246, 192,201 ,205,208,6 

56,233, 1,141,1 ,208 
173, 16,208,41 , 1 ,208 

42, 173,0,208,201 ,39 

208 ,74, 173, I ,208 ,201 
130, 144,22,201 , 161 , 176 
18,173,16,208,41,1 

205,37, 132,240,8, 169 
1,141 ,26 , 192,76, 1 1 1 
193,238,0,208,76,78 
193, 173,0,208,201 ,49 

208,32, 173, 1 ,208,201 
130, 144,22,201 , 161 , 176 
18, 173, 16,208,41 , 1 

205,37, 192,240,8, 163 
1,141 ,26, 192 ,76 ,111 
193,206,0,208, 162,5 

32 .54, 195, 173,32, 192 

240,23,169,3,141,26 
192.160,5,185,11,192 

45,21 ,208, 141 ,21 ,208 
160, 10, 163,0, 153,0 

208, 173,38, 192,208,90 
173,43, 192,208,85, 173 

0,220,41 ,16,208,78 
173,40, 192,201,3,176 

71 , 169,30, 141 ,43, 192 
169, 1 , 14 1 ,38, 132,238 

40 , 192, 169, 10,14 1,1 

212,163,17,141,4,212 
162,2,32,13,194,169 
16, 141 ,4,212, 160, 12 
173,0,208, 153,0,208 
173, 1 ,208, 133, 1 ,208 
173, 16,208,4 1 , 1 ,240 

9,173,16,208,9,64 
141 , 16,208,96, 173, 16 

208,4 1 ,191,141, 16,208 

96 , 168 ,4 1 , 1 ,208,8 
169,255, 141 ,25, 192,76 

230, 193, 152,4 1 ,2,208 

5,163,1,141,25,192 
152 ,4 1 ,4 ,208,8, 169 

255,141 ,24,192,76,253 



3690 


DATA 


2700 


DATA 


27 10 


OATA 


2720 


DATA 


2730 


OATA 


2740 


DATA 


2750 


DATA 


2760 


DATA 


2770 


DATA 


2760 


DATA 


2790 


DATA 


2800 


DATA 


2810 


DATA 


2820 


DATA 


2830 


DATA 


2840 


OATA 


2850 


DATA 


2860 


DATA 


2870 


DATA 


2880 


DATA 


£890 


DATA 


2900 


DftTA 


29 10 


DftTA 


2920 


OATA 


2930 


DATA 


2940 


DATA 


2950 


DATA 


2960 


DATA 


2970 


DATA 


2980 


DATA 


2990 


DATA 


3000 


DATA 


3010 


OATA 


3020 


DATA 


3030 


DATA 


3040 


DATA 


3050 


DATA 


3060 


DATA 


3070 


DATA 


3080 


DATA 


3090 


OATA 


3 100 


OATA 


3 1 10 


DATA 


3120 


DATA 


3 130 


OATA 


3 140 


DATA 


3150 


DATA 


3 160 


DATA 


3 170 


DATA 


3 180 


DATA 


3 190 


DATA , 


3200 


DATA 


i n 
— i \j 


DATA 


3220 


DATA 


3230 


DATA 


3240 


OATA 


3250 


DATA 


3260 


DATA 


3270 


DATA 



193, 132,41 ,8,208,5 
169,1,141,24,192,173 
38 , 192 ,208 , 12 , 173 ,24 
192, 14 1 ,39, 192, 173,25 
132, 141 ,41, 192,96, 160 
255, 136,208,253,202,208 
248,96,169,0,141,20 
192,32,202, 192,44,43 
192,240,3,206,43, 192 
173,26, 192,208,88, 173 
38, 192,240,21 ,32, 13 
196, 173,38, 192,240, 13 
173,26, 192,208,70,32 
13, 196, 173,26, 192,208 
62,174,42,192,32,13 
194, 162,0,173,27,192 
24 , 105, 1 ,201 ,3,208 
2, 169, 1 , 141 ,27, 192 
14 1 ,20, 192, 168,185,3 
192,45, 16,208,208, 16 
152 , 10, 168, 185,0,208 
208 ,8 ,232 ,224 ,4 ,240 
161 ,76,79, 194,32, 139 
194, 173,26, 192,208,3 
76,24,194,169,0,141 
38, 192,96, 173,27,192 
10, 168, 185,0,208, 141 
21,192,185,1,208,141 
23, 192, 173,23, 192,205 
1 ,208,208,8, 169,0 
141 ,23, 192,76, 187, 194 
144,8, 169,235, 141 ,25 
192,76,187,194,169,1 
14 1 ,25, 192, 172,27, 192 
185,3, 192,43, 16,208 
208,8, 169,0, 14 1 ,22 
192,76,21 1 , 194, 169, 1 
141 ,22, 192, 173, 16,208 
41,1 ,205,22,192,240 
3,176,18,76,236,194 
173,21 , 192,203,0,208 
240, 12 , 144,5, 169,235 
76,248,194,169,1,76 
248,194,169,0,141,24 
192, 173,24, 192,73,255 
24,105,1,141,34,192 
173,25, 192,73,255,24 
105, 1,141 ,35, 192,32 
44,192,32,33, 195, 173 
32, 192,208, 1 ,96,32 
229, 195,96, 162,0,236 
20,192,240,8,32,54 
195, 173,32, 192,208,5 
232,224,6,208,238,96 
173,20, 192, 10, 168, 185 
0,208, 141 ,28, 192, 185 
1 ,208, 141 ,29, 192, 138 
10,168,183,0,208,141 
30, 192, 185, 1 ,208, 141 



3280 OATA 31,192,173,23,192,56 
3290 DATA 233,19,205,31,192,176 
3300 DATA 11,173,29,192,24,105 
3310 DATA 19,203,31,192,176,6 
3320 DATA 169,0,14 1,32,192,96 
3330 DATA 172,20,192,185,3,192 
3340 OATA 45,16,208,240,2,169 
3350 DATA 1,141,33,192,138,168 
3360 DATA 185,3,192,45,16,208 
3370 DATA 240,2,169,1,203,33 
3380 DATA 192,240,46,176,23,173 
3390 DATA 28,192,56,233,15,176 
3400 DATA 11,205,30,192,176,6 
34IO OATA 169,1,141,32,192,96 
3420 DATA 169,0,141,32,192,96 
3430 DATA 173,28,192,24,105,15 
3440 DATA 144,242,205,30,192,144 
3450 OATA 237,169,1,141,32,192 
3460 DATA 96,173,28,192,36,233 
3470 DATA 15,176,2,169,0,205 
3430 DATA 30,192,176,216,173,28 
3490 OATA 192,24,105,13,144,2 
3500 DATA 169,255,205,30,192,144 
3510 DATA 201,169,1,141,32,192 
3520 DATA 96,138,240,31,173,34 
3530 OATA 192,141,24,192,173,35 
3540 DATA 192,141,25,192,32,44 
3550 DATA 192,173,34,192,141,24 
3560 DATA 192,173,35,192,141,25 
3570 DATA 192,32,44,192,96,169 
3580 DATA 2,141,26,192,96,160 
3590 OATA 12,185,1,208,201,66 
3600 OATA 240,106,201,205,240,102 
3610 OATA 173,16,208,41,1,208 
3620 DATA 7,185,0,208,201,39 
3630 DATA 240,88,185,0,208,201 
3640 DATA 49,240,81,173,33,192 
3650 DATA 141,24,192,173,41,192 
3660 OATA 14 1,25,192,169,6,141 
3670 DATA 20,192,32,44,192,160 
3680 DATA 12,185,1,208,201,66 
3690 OATA 240,32,201,205,240,48 
3700 DATA 173,16,208,4 1,64,208 
3710 DATA 10,185,0,208,201,39 
3720 DATA 240,34,76,104,196,183 
3730 OATA 0,208,201,49,240,24 
3740 OATA 162,1,32,54,195,173 
3750 DATA 32,192,208,22,232,224 
3760 DATA 5,208,243,76,122,196 
3770 DATA 169,0,141,26,192,96 
3780 OATA 168,0,141,26,192,76 
3790 DATA 171,196,138,24,105,3 
3800 DATA 141,26,192,136,168,185 
3810 OATA 11,192,45,21,209,141 
3820 DATA 21,208,185,11,192,45 
3830 DATA 16,208,141,16,208,152 
3840 DATA 10,168,169,0,153,0 
3830 OATA 208,169,0,141,38,182 
3860 DATA 160,12,153,1,208,96,256 



DON'T MISS "SOFT" 




Dit blad, 
nar du fyrer den af ... 

N&r du for alvor vil ga til den, er der kun ET blad, der snakker dit 
sprog - SOFT, Danmarks eneste softwaremagasin. 

SOFT har gang pa gang slaet Danmarksrekord i antal spilanmeldelser. 
Og udover alle de hotte anmeldelser er der dybdetests, snydetips, pokes 
og meget mere, der hjcelper dig med at gennemfore alle de bedste 
games. Altsammen er det med baggrundsinterviews, joysticktests og 
spzendende artikler. For slet ikke at tale om alle de friskeste news og 

preview-anmeldelser af kommende spil. 

Har du fingeren pa joystickknappen? Og vil du ha' check pa alt det 

varmeste fra games-land? 
Sa er SOFT dit blad. Danmarks eneste softwaremagasin, men i 

international klasse! 



- VI TRYKKER DEN AF! 



CHALLENGE 




Er du kreativt anlagt og eisfcer at 
tegne, sA prav kraefter med Am- 
strads svar pa Picasso. Du bliver 
mSske ikke den nye Rembrandt, 
men du vil t& det sjovt 
Tegneprogrammet er skrevet i ren 
maskinkode og fylder omtrent 4 
K Det kan tegne i alle tre mode's - 
med 2. 4 eller 16 farver pa skasr- 
men. Du kan selv defineredine far- 
ver. sS du reelt har rSdlghed mel- 
lem samtlige 27 og en ekstra fea- 
ture er muligheden for at skifte 
mode uden at skasrmen slettes. 
Programmet kan sagtens kore og- 
sa pa en Amstrad med disc. NaT det 
er indtastet (OG gemt. husk det). 
startes det med CALL 30000 og et 
tryk pS Enter. 



1 ' TEGNER. Lar* I >.>■■- d Jensen 

3 pc-2980£:M£MQRY pc-1 

4 READ **ilF a*= "END " THEN END 

5 FOR a-1 TO LEN(a«) STEP St POKE pc, VAL ( "ft"+niD» ( a», a, 2 > ) a pc-pc+ 1 I NEXT I GOTO 4 
10 DATA IF0E072254£0452047204E£045a0522£lF130B61££lF070E4C617273204££l£5£B£7£l 

£l7£6*t2Ci4A£5EE73£5£E2C2O31393835lF05ia41£B7475£56C£070£5£E3A£O2O203A£0 
20£0£0£0202046£17£7££5720DOA1F020C537461727420£££1£1£E£4£F7074£1£7£57£ 
20£F£7£073£B72£97££0£££9£C£E617££E3A£0£0£OODOA53£B7££976£0687££57£74£0 
74£1£C20£D£5£4£074£F£0£3£9££7££5£0202020200DOA00487££9£C£B£S6E204D4F44 

4S207££9EC20£475£O£8£ 1 7££52S30£D3££93FCDBABB3E82CDAD7 70006842 1 0£5£0£ 1 0 
3£OO£31OFB211273061£7ECD5ABB£31OF9CD03BBCDiaBBFE3O2eOSFE312804FE3££QFl 
D£303£l£5£C£01473E0aCB3F10FC3£1452CDFC83CDElBBF53E01CDDEBBCD 1378008878 
F 1 CDDEBBCDD278F3CDE 1 BBFS3E01CDDEBBCD8E78CD1 378F 1CDDEBBF 1FE7 1 200BCDO3BB 
CDlBBBKE71Cfi3075F£E020£ECDElBBF5£lF84322784B012F002Al£5£0906ieC5ED5B10 
5£0650CSE5D3CDFOBB2A784B77£3££784BDIE1C1 131OECCl£B£B10EOCDBA7aCD£CBBCD 
84BB21D43D017F0711FB431ACD2CBC7713£30BCB782eF4CDr:3a3FlCDDEBB21£e4B££78 
4B21 I80lCD75BBO0000000CDaiBBC3F£7£CD297£C37775FEaaCAED7aFEa2CAlS79FEa4 
CA3379FEa£CA5579FEei£00£CD1579C33379FE83£00£CD1579C35579FEa7£00£CDED7a 
C33379FE89£00£CDED7aC35579FEF0CA8179FEFlCA9379FEF2CA9F79FEF3CAAF79FE31 
CAC£79FE3£CACD79FE33CAE£79FE34CAF07AFE3SCA8£7CFE3£CA8B7CFE37CAD07CFE38 
CA££7AFE73CA4F7DFE£CCA£D7DFE££CAA47DFE7£CAAB7FFE£aCA507FFE6ECAB78£FE£F 
CA2CB3FE70CAF27CFE74CAECi7CFE£lCAD581FE6BCAF3BlFE£3CA0C82FE£3CA7782FE£7 
CACC81FE£4CAC3eiF£0DCA137AC92A7a4B7E57EE01CD90BB7ACD9£BBCDlD7ACDD£78FE 
71200BCU03BBCDiaBBFE71CA3O75FEE02042CDElBBF5CDC£7a£lF843££784BOl£F00£A 
l£5£090£l8CSED3B105£0£S0C3D5ES2A7a4B7E£3££784BCDDEBBElESCDEABB£lDlC113 
10E7C 1£B£B 1 ODBF 1 CDDEBBC37775CD£177C3F£7£FEB8CA887EFE8£CA9C7EFE84CAB57E 
FEa£CACB7EFE81200£CD9C7EC3B37EFEa3£00£CD9C7EC3CB7EFE87200£CDaa7EC3B57E 
FES9£00£CD8a7EC3CB7EFE31CADE7EFE38CAF97EFE7QCA207FC9D££1573A1452473E0l 



£0 
30 
40 
50 
£0 
70 
80 
90 
100 
1 10 
120 
130 
140 
150 
l£0 
170 
180 
190 
200 
210 
£20 
£30 
240 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAI A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



CHALLENGE 



£50 DATA CB271OFCD6O1A2F5CDDEBBF1CD35BCCD38BCC9CD4EBBCD11BC3216323EO1CD0EBC3E0O 
£60 DATA CD35BCED43 1 7523E000 10X01 CD32BC3E0 1 CD35BCED43 1 9523E0 101 lfll SCD32BCC9C5CD 
£70 DATA E87C3E01ED4B1952CD32BC3E00ED4B1752CD32BCC1C90O3AO652A72O343E01CD59BC2A 
£80 DATA 08521 10S0Q19EB2A0A52CDC0BB1 1F0FF210000CDF9BB1 10S00210800CDC3BB1 1000021 
£90 DATA FOFFCDF9BB3E00CD59BCC93E01CD59BCED5B10522A1252CDC0BB114F00210000CDF9BB 
300 DATA 1 1 00002 12F00CDF9BB1 1 B 1FF2 10000CDF9BB1 10000£1D1FFCDF9BB3EOOCD39BCC93E01 
3 1 0 DATA CD59BC2A0C32 1 1 01 00 1 9EB£A0ES£CDC0BB 1 1 F8FF£ 1 0000CDF9BB 1 1 04002 1 0400CDC3BB 
3£0 DATA UO00021F8FFCDF9BB3E00CD59BCC92100C011E8Q3O1O040EDB0C921E8031 100C00100 
330 DATA 40EDBOC9CDQ3BB3A07523CFE5Q20023E00473£075£CD1EBB£8ED78CD2ABBC93A0652A7 
340 DATA £0 1 O2A0A520 1 9001 2323ED42D009220A52C92A 1 2520 16101 2323373FED42D00922 1 252 
330 DATA C93A0632A7200C2AOAS22B2BC87CC02£OA5£C9£A 1 £522B£BCB7CC0££ 1 £S£C93A063£A7 
360 DATA ED4B145££O0C£A085£ED4£CB7CC0220852C92A1052ED42CB7CXO£21O5£C93AO65£A720 
370 DATA 1 32A0852ED5B 1 4520 1 8002 1 9ED4£D009££0B52C92 A 1 0S2ED5B 1 45201 3 1 0£ 1 9ED42D009 
380 DATA ££105£C9£AOE5£0190012323373FED42D009220E52C92AOE3££B£BCB7CCO£20E5£C9£A 
390 DATA 0C3£ED4B1 452ED42CB7CC0220C52C92A0C52ED5B 145201 8002 19ED4£D009£20C52C9ED 
400 DATA 5B085££A0A5£CDEABBC9ED5B08522A0A52CDC0BBED5B0C5££A0E5£CDF6BBC9ED5B0a5£ 
410 DATA 2A0A5£CDC0BBED5BOC5££A0A5£CDF6BBED5B0C522AOE52CDF6BBED5B085££AOE5£CDF6 
420 DATA BBED5B085££A0A5£CDF6BBC93A0652EEFF3206520 10QCOOBCB7820FBC906 1 820 1 252ED 
430 DATA 5B10S2E5C5CDCOBBU4F00210000CDF9BBC1E1232310E8C9640062115E2257324D4040 
440 DATA 4D3257225EI 16200644621 00003E00B8C8 1 9 1 OFD0164001 10000373FED423S031 3 18F7 
450 DATA EBC9E5ED5B0452CD587 A££005£E 1 23ED5B0252CDS67A22FE5 1 C92A0852ED48FC5 1 C92A 
460 DATA 0E52ED4BFA51C9ED4B00522A0B52C9£A0E5£ED4BFE51C9CD8C7AO9EBC9CDBC7A373FED 
470 DATA 4£EBC9CD947A09CDC08BC9CD947A373FED42CDCOBBC9CD9C7A09EBC9CD9C7A373FED4£ 
480 DATA EBC9CDA47A09CDF6BBC9CDA47A373FED4£CDF6BBC9£AO85£ED5B0C5£373FED5230061 1 
490 DATA 0 1 00EBED5222O4522A0 A52ED5BOE52373FEDS£3006 1101 00EBED522202522 1 447ACD74 
500 DATA 7A1 1467AD52A00S222FC512AFE5122FA51EBCD747ACDAC7ACDBB7ACDCE7ACDDD7ACDB2 
510 DATA 7ACDBB7ACDD47ACDDD7ACDAC7ACDC37ACDCE7AC0E57ACDB27ACDC37ACDD47ACDE57AD1 
520 DATA 1 3 1 33E58BB20B7C9ED5B 1 45£2 1 0 1 0037ED3222FA5D2 1 000022F055ED5B0832ED53FA55 
530 DATA £AOA5£22FC55CDFOBB473£F£55CDE1BBB8C8CDE4BB3AF133CB7FC03E42CD1EBBC02AFO 
540 DATA 55£B£B£B£B2£F0SS0 1 FE55095E2356234E2346ED53F455606922F655CDC0BBED5B1 452 
550 DATA 210000CDF3BB473AF233B828EFED5BFA5D210000CDC3BBCDC6BBED53F45511000021FE 
560 DATA FFCDF3BB473AF233B028O69732F9S51 60D3AF955A72O073C32F955CD627C 1 1 00002 1 04 
570 DATA 00CDF3BB473AF£55Ba£eO£973£Fa53ia0D3AFaS5A720O73C32F855CD627CED5BFA5D21 
580 DATA FEFFCDF3BB473AF255B828A9ED5B1 4522 10000CDC3BBED5BF4552AF655CDF6BB2 10000 
590 DATA 2£F833C39F7B2AF05523£3£3£3CB5CC022F05S01FA5309E3CDC6BB444DE1 7323722371 
600 DATA £370C9£1F6BB22577CC36F7B£1947C22577CC36F7BD5CDC6BB3EO£A53EOO£8033A145£ 
610 DATA £10000EBD1F5A73A145£4D£805814F3A145£A1280BD5E5EB2AF655CDEABBE1D1F1373F 
620 DATA ED5£Cai9ED4B145£09iaD721D97C££377CC36F7B3E0£A5CaC3F6BB3E01CD59BCC3317F 
630 DATA CDBD83CDE1 BBC3C27700CD03BBCD 1SBBFE7 1 3007FE6 1 3803CDAD77C31 D7A0000000000 
640 DATA CDBA78CDC9773E01CD6BBCCD4EBBCD6CBB21C274062A7ECD5ABB2310F9CD81BBCD03BB 
650 DATA 061021CO5DCDiaBBFE0D280777CD5ABB£31OF23E109047CDFA7721C05DllD45DC9CD0B 
660 DATA 7DE5D5C5CDC67aClDlElCD8CBC£100C01 100403E02CD98BCCD8FBCC9CD0B7DCD77BC21 
670 DATA 00C0CDS3BCCD7ABC3E42CDlEBBCaCDC67aC91&303EO9Ba300778D&0A14471BF47ACD5A 
680 DATA BB7BC630CD5ABB3E20CD5ABBC9CDBA7BCDD777CD4EBBCD6CBB21 B&74060C7ECD5ABB23 
690 DATA 1 0F93E6 1 CD5ABBF5£ 1 B274060S7ECD5ABB23 1 0F9F 1F5D66 1 CD747ECDB67D4 1 CDB67D3E 
700 DATA 0DCD5ABB3E0ACD5ABBF13CFE7120D221A474060E7ECD5ABB2310F9CDE1BBF5C661CD5A 
710 DATA BB21EC7406257ECD5ABB2310F9CD297E47C5CD297EC14FF1F5CDEC83F1CD32BCCDFA77 
720 DATA CDC678C31D7A3EllCD5ABB3E0DCD5ABBCDaiBBCD03BBCD18BBCD5ABBFE3A30E6FE3038 
730 DATA E2D630A7280647AFC60A1 0FC4FCD 1 8BBCD5ABBFE3A30CCFE303acaD£30a 1 F53E0DCD5A 
740 DATA BB3E0ACD5ABBCD84BBF 1 C9FE0 1 2005ED4B 1 952C9A72005ED4B 1 752C9C335BC2A784B 1 J 
750 DATA 4F0037ED521 !F74337ED52Da3E0B18102A7a4Bl 15000191 1 774B37ED52D03E0A37ED5A 
760 DATA 22784BC35ABB2A784BED5B 1 452373FED52 1 1 F74337ED52D83E0S 1 8E 1 2A784BED5B1 452 
770 DATA 1911774B37ED5£D03E09iaCE3A145£47CDEiBB2A784B77£310FCCD90BB3E8FCD5ABB3E 
7B0 DATA 08C350BB2 1 F8430 1 8007CDE 1 BB579772230BB820FAB920F77ACD96BBCD6CBB2 1 284B££ 
790 DATA 784621 ia01C373BBCD03BBCD18BBFE7130F6FE6l3aF£C3AD773EOOCDE4BBED5BOa52£A 
GOO DATA OA52CDCOBBCD03BBCD2E84FEODCAlD7ACDFCBBieF3CDElBBF3210000E5110000DSE5D5 
810 DATA CDF0BBD1C1F3C5D521 9001 37ED42CDF0BBD1E1E3D5CDDEBBCDEABBD1C121 9001 37ED42 
820 DATA F1CDDEBBCDEABBD12A145219345D017F0237ED42E1E538C2E12323345D01C70037ED42 
830 DATA EB38BOFlC3DEBBCDElBBF51l0000210000DSE3D5E5CDF08BClDlF5D5C52ia00237ED52 
840 DATA EB&069CDF0BBE 1 D 1 D5E5CDDEBBCDEABBC 1 D 1 2 1 S00237ED52E8&0&9F 1 CDDEBBCDEABBE 1 
850 DATA £3£3E50 1 8F0 1 37ED42E 1 D 1 38BE£A 1 45£ 1 9545D0 1 3F0 1 37ED4238ADF 1 C3DEBB2A085222 
860 DATA 2a50£AOA5££££A5021948E£££AAOO&FA3&00233&00£310FaCD03BBCDE380CD18BBF5CD 
870 DATA E3a0FlFEODCBOO00F5FE31CC9B8O2002FlC9FlF5FE8aCCF378FlF5FEB2CClB79FlF5D6 
880 DATA 84CC3779F 1 F5FE86CC5B79F 1 F5D6B 1 2006CD3779CD 1 B79F1 F5FE832006CD 1 B79CD5B79 
890 DATA FlF5D6a72006CD3779CDF378FlF5FE892006CDF378CD5B79FlF5FE70CCF27CF 1189000 
900 DATA OOOOCDEl BB2A2AA07723E52AOaS2ED5B2850222a50373FED52EBE 1 73237223E52A0A52 
9 1 0 DATA ED5B2A50£22A50373FED5£EBE 1 73£37£232££AAOE5ED5B085£2A0A52CDEABBE 1 1 1 8790 
920 DATA 37ED52C9CDElBBF53EOlCDDEBBCD197aFlCDD£BBC9CDElBBF5ED5B0aS22AOfl52CDC0BB 
930 DATA 21948E7ECDDEBB235E2356234E234623E560&9CDEDBBE1E5ED5B2AA0373FED52E138EO 
940 DATA F 1 CDDEB8C9CD03BBCD 1 8BBFE 302008 1 1 28A02 1 A08C 1 8&BFE3 1 2008 1 1 2AA02 1 948E 1 85F 
930 DATA FE322008 1 1 2CA02 1 8890 1 B53FE332008 1 1 2E A02 1 7C92 1 84 7FE342008 1 1 30A02 1 7094 1 8 
960 DATA 36FE35200ail3£A0216496ia2FFE36200ail34AO£15S981B£3FE37£OOSl 136A0£14C9A 



3 



CHALLENGE 



970 DATA 1817FE38E0081138A021409C1BOBFE39C01 13AAOS1349E0000221&B02203S101F30I09 
980 DATA a2DD80EB2£1980£fSF80£2CE80££lCai97C9CD2aaiCC09aOC31D7ACD£naiCCF4aOC31D 
990 DATA 7fiCDOB7DE3D3C3CDC678ClDlElCD6CBC2100aCl 19C1 33E0£CD98BCCDSFBCC9CD0B7DE5 
1O00 DATA D5C5CDC678ClDlElCD77BC21fi08CCD83BCCD7ABCC9CDElBBF521Fa432278AB012F0020 
1010 DATA 12320906iaC3ED5Bl0520650C5E5D5CDF0BB2A784B7723227a^BDlEiCI1310ECC12B2B 
1020 DATA 1 0E02 1F84322784B0 1 2F002A0E3209061 8C5ED5B0C520650C5D5E52A7a4B7E23227a^B 
1030 DATA CDDEBBE1E5CDEABBE1D1C11310E7C12B2B10DBF1C3DEBBED5BOC522AOE52CDFOBB32F2 
1040 DATA 5SCDElBBF52A125206iaC5ED5B10S20£50C5D3E5CDFOBBA73AF235B82007ElDiD3E5CD 
1030 DATA EABBE1D1C11310E6C1232310DAF1C3DEBBCD1 lBCD8F53D32i652F5CDBA7BCD0EBCCDC6 
10£0 DATA 7BF13C473E08CB3FlOFC321452F12100CO£02aiE00563ECOA22a02CBFB3E30A22a02CB 
1070 DATA F33E0CA22802CBDB3E03A22802CBD37323CB7C20DBC3B0a31E00563EC0A2ea02CBFB3E 
1 080 DATA 30A22802CBF33EOCA22802CBEB3E03A22802CBE37323CB7C20DBC3B083CD1 1 BC280 1 DO 
1090 DATA F53C321632F5CDBA7aCD0EBCCDC678F13C473E0aCB3Fi0FC3£1452F12100C038301E00 
1 100 DATA 563EaSA£2S04CBFBCBF33E44A22804CBEBCBE33E2£A2£a04CBDBCBD33El 1A22804CBCB 
1110 DATA CBC37323CB7C20D3C3B083 1 E003E3EA0A22a04CBFBCBF33ES0A2£a04CBEBCBE33E0AA2 
1120 DATA 2a04CBDBCBD33E0SA2£804CBCBCBC37323CB7C20D33Al0S£E6FC3210523E62C3AD773A 
1130 DATA 1652C30EBC2100C00608CS0180O711D43DE5EBEDB0E101000809C1 10EDC9CDC977216E 
1140 DATA 7406367ECD5ABB2310F9C9FE012005ED431952C9A7COED431752C93E01ED4B1952CD32 
1190 DATA DCC3FA77U7001£lFCA6CDCBBCC3DCa33EaFCDFCBB3A1452CB27CB27CB27D60iaF5Fl£ 
1180 DATA FF£10000C3C3BBCDl4a4CD18BBF5CD1484FlC9 
1170 DATA END 

1 NSTRUKT I ONER TIL TE&NEPROGRAM. 

To cursors befinder i begyndelsen i nedrv, vtnstri hjerne, en stor og en 
1 i 1 le. Den store kan ski ftes ud rned *:t. ramwe. 

VED HELHEDSBILLEDET VIRKER FLG. TASTER I 

Numerisk tastatur (1-9 undtagen 3): Styrer den store cursor /rammen. 

Pi lene: Styrer den 1 i 1 le cursor. 

ENTER: Skif ter mel lem riMN og stor cursor. 

COPY : For starrer ramme-omrAde. 

It Plotter pA stor cursor 1 s posit ion. 

2i Tegner linle me 1 lem de to cursors. 

3: Tegner en kasse hvor de to cursors beskriver diagonal en. 

4i Tegner en el 1 i pee. Stor cursor angi ver he J den, 1 i 1 le 

cursor angi ver bredden. 
S: Fylder lukket omrAde ud med aktuel farve. 

6 1 Som 3. men st i plet . 

7s Sow 5. men stribet* 

8 > Fylder rarnmeomrAdet ud med aktuel farve. 

qt Slut tegning. Som sikkerhed skal der trykkes to gange. 

t j Tekst-mode. Here f ter kan der skrives tekst. Ferste bog- 

stav placeres pA stor cursor 1 s posit Ion. 
p: Pen- farve valg. Ef ter p trykkes pA a-p for f arven. 

f j Farve def iner ing. Den akt uel le pen-f arve kan def ineres 

til en af farverne f ra 0-26 (se manual en) . 
©s Erst at ter farve 1 ramme-omrAdet med aktuel pen-f arve. 

Den 1 i 1 le cursor skal placeres pA f arven, som skal ud- 

ski ftes. 

c: kopi erer ramme-omrAdet til den 1 i I le cursor. Den 1 i 1 le 

cursor svarer til rammens nederste, venstre hjerne. 
hi Bps J ler bi 1 ledet hor isontalt . 

vi - vert ikal t < 

o: Sat ter MODE en gang op men bi beholder bi 1 ledet . 

m - n&d - - 

di Definering af grafiktegn. Skal efterfelges af et tal 

(0-9) . Def inering foregAr med num. tastatur t pen-farve- 
valg og plot. ENTER returnerer fra definering. 

gi Udplotning af grafiktegn ved stor cursor. Skal efterfel- 

ges af 0-9. 

st Save a f skermbi 1 ledet . 

as - - graf i ktegnene. 

1 - Load af skermbi 1 ledet. 

ks — - graf i ktegnene. 

VED FQRST0RRET BILLEDE VIRKER FLG. TASTER: 

Numerisk tastatur: styrer cursor. 

COPVi Returnerer til helhedsbil ledet . 

la Plotter pA cursorens position. 

B: Fylder sksermen <dvs. ramme-omr Adet ) ud med aktuel farve. 

q. Sluttegning. Sikkerhed : Der skal trykkes to gange. 

p : Pen-f arve-valg <a-p> . 
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IBM PC pg 
/compatible 

Anti-break 

Her er en nyttig rutine til dig. der 
programmerer i BASIC A t Rutinen 
karer p3 IBM PC og de fleste kom 
patible. 

Put den ind 1 et program. s& kan 
programme! ikke breaker For at 
f3 prog ram met 'ubeskyttef mod 
pilfingre tgen, skal du Scette ruti- 
nen ind. som hedder Cn Back to 
NormaL 
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DEF SEG^O 

C = PEEK (108) 
D a PEEK ( 109) • 

E = PEEK (110) 

F m PEEK (111) 

F'OKE 103,83 

109, 255 

110, O 

111, 240 

SEG 

go back 
to normal 
9EG«0 



POKE 
POKE 
POKE 

10 DEF 

11 REM 



13 DEF 

14 POKE 108, C 

15 POKE 109, f P 

16 POKE 110,E 

17 POKE lli,F 
8 DEF SEG 



VI 



and* 



or 



'OOo 



hp. 



<47 



sel v 



«0. 



n, 



id 



eu er 



72 



Ken 
fiusk 



eft 



din 



er 
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DET TYKKE TILBUD: 



Tegn abonnement pa Danmarks 
st0rste program-bibliotek . . . 




'TAST" er Danmarks storste taste-ind blad. 
Et sandt bibliotek at spsndende kvalitetsprogrammer, 
der nu udkommer fast hver tredie mined. 

Tegn abonnement NU! Ikke bare er 
det den billigste losning, men du fir ogsa 
bladet bragt til doren - gerne 34 dage for 

det udkommer. 

Et helt ar koster bare 122 kroner. EUer omkring 

en krone pr. program ... 

SEND KUPONEN I DAG! 



Ja tak, lad mig tegne abonnement 
pa "TAST" i et ar (4 numre). 

Jeg han Indsat kr. 122,- pa giro 9 40 60 77 □ 
Vedlagt en check pi Iff. 122.- □ 

Navn 

Adresse 



Computer. _ 

Seniles til: TAST Abonnement 
St. Kongensgade 72 
1264 Kobenhavn K. 



